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***** ABOUT MICRO -80 ***** 

EDITOR: RYSZARD WIWATOWSKI 
ASSOCIATE EDITORS: 

SOFTWARE : CHARLIE BARTLETT 

HARDWARE : EDWIN PAAY 

MICRO-80 is an international magazine devoted to the Tandy TRS-80 Model I, Model III 
and Colour microcomputers, the Dick Smith System 80/Video Genie and the Hitachi Peach. 
It is available at the following prices: 

12 MONTH SUB. SINGLE COPY 

MAGAZINE ONLY $ 26-00 $ 2-50 

CASSETTE PLUS MAGAZINE $ 65-00 $ 4-00 (cass. only) 

DISK PLUS MAGAZINE $125-00 $10-00 (disk only) 

MICRO-80 is available in the United Kingdom from: 

U.K. SUBSCRIPTION DEPT. 24 Woodhill Park, Pembury, Tunbridge Wells, KENT TN2 4NW 

MAGAZINE ONLY £ 16-00 £ 1-50 

CASSETTE PLUS MAGAZINE £ 43-60 £ N/A 

DISK PLUS MAGAZINE £ 75-00 £ N/A 

MICRO-80 is available in New Zealand from: 

MICRO PROCESSOR SERVICES, 940A Columbo Street, CHRISTCHURCH 1 N.Z. Ph 62894 

MAGAZINE ONLY NZ$ 43-00 NZ$ 4-00 

CASSETTE PLUS MAGAZINE NZ$ 89-00 NZ$ 5-00 

DISK PLUS MAGAZINE NZ$1 75-00 NZ$1 5-00 

MICRO-80 is despatched from Australia by airmail to other countries at the following rates: 

(12 MONTH SUB) MAGAZINE CASS + MAG DISK + MAG 

PAPUA NEW GUINEA Aus$40-00 Aus$ 83-00 Aus$ 143-00 

HONG KONG/SINGAPORE Aus$44-00 Aus$ 88-00 Aus$ 148-00 

INDIA/JAPAN Aus$49-00 Aus$ 95-00 Aus$ 155-00 

USA/MIDDLE EAST/CANADA Aus$55-00 Aus$l 02-00 Aus$ 162-00 

Special bulk purchase rates are also available to computer shops etc. Please use the 
form in this issue to order your copy or subscription. 

The purpose of MICRO-80 is to publish software and other information to help you get 
the most from your TRS-80, System 80/Video Genie or Peach and its peripherals. MICRO- 
80 is in no way connected with any of the Tandy, Dick Smith or Hitachi organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties. 
An application form containing full details of how you can use your microcomputer to 
earn some extra income is included in every issue. 

** CONTENT ** 

Each month we~publish at least one applications program in BASIC for each of the micro- 
computers we support. We also publish Utility programs in BASIC and Machine Language. 
We publish articles on hardware modifications, constructional articles for useful peri- 
pherals, articles on programming techniques both in Assembly Language and BASIC, new 
product reviews for both hardware and software and we print letters to the Editor. 

** COPYRIGHT ** 

W\ the material published in this magazine is under copyright. This means that you 
must not copy it, except for your own use. This applies to photocopying the magazine 
itself or making copies of programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our 
utmost to ensure that they function as described. However, no liability can be accepted 
for the failure of any program or other article to function satisfactorily or for any 
consequential damages arising from their use for any purpose whatsoever. 
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*** SPECIAL OFFER TO NEW READERS AND READERS RENEWING THEIR SUBSCRIPTION *** 
*** SOFTWARE LIBRARY, VALUED AT OVER $100 - FREE!!! *** 



MICRO-80 has developed a new Library of Software consisting of 7 programs and a comprehensive user manual. The 
Software Library, on cassette, will be sent FREE to every new subscriber and to every subscriber who renews his sub- 
scription for another 12 months. Disk subscribers will receive their Software Library on a diskette. The new Software 
Library contains the following Level II/Disk Programs. All programs will also operate on the Model III. 
Level I in Level II Poker 

Convert your Level II TRS-80 or System 80 to operate as Play poker against your computer, complete with realistic 

a Level I machine. Opens a whole new library of software graphics, 
for your use. 



Copier 

Copies Level II System tapes, irrespective of where they 
load in memory. Copes with multiple ORG programs. 

Z80 MON 

A low memory, machine language monitor which enables 
you to set break points, edit memory, punch system 
tapes, etc... 

Cube 

An ingenious representation of the popular Rubick's 
cube game for Disk users. 



Improved Household Accounts 

Version 3.0 of this useful program. One or two bugs 
removed and easier data entry. This program is powerful 
enough to be used by a small business. 

80 Composer 

A music-generating program which enables you to play 
music via your cassette recorder and to save the music 
data to tape. This is an improved version of the program 
published in Issue 17 of Micro-80. 
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***** EDITORIAL ***** 

On behalf of all the staff here at MICRO-80, may I wish you all the best in the coming year. 
I feel a little nervous embarking on this, my maiden editorial, and a little worried that some 
of you may not think me too bright considering that my decision to accept this position at this 
point in time was voluntary. But, I assure you that the discrepancy between the calendar and 
cover month has reached a maximum and that one of my main objectives is to remove this discrepancy 
altogether. This will, naturally enough, take some time to accomplish and I hope that you will 
afford me the same degree of patience you have my predecessor, (if not more, since by comparison 
I am but a novice! ). 

Perhaps I should begin by telling you a little about myself and how I acquired my interest in 
computing. A long time ago, or so it seems now, when I was still in high school, I became very 
interested in electronics and spent the next few years trying to make the perfect hi-fi amplifier. 
Most of my attempts (usually designs from various electronic magazines) died horrible deaths 
at the moment of powering them up and I eventually bought one. Nevertheless, this fascination 
with electronics sustained me until I came across logic circuits in third year Physics at University. 
At the same time I had my first taste of computing in Applied Maths but never had the faintest 
suspicions that the two were closely connected (computers and logic circuits). My greatest 
achievement was the perfection of a program, written in FORTRAN, to produce a calendar. Elsewhere 
in this issue, my latest attempt appears - yet another milestone, as it is the first of my programs 
to ever be published! I seem to recall expending a great deal more effort the first time. 

As Ian mentioned last month, I was, until recently, a high school teacher, in the areas of mathe- 
matics and science. When the Education Department took an interest in computers and purchased 
Apple microcomputers available for use in schools, my interest in computing was rekindled. 
The technological revolution in the electronics industry was well under way and the price of 
the personal computer had fallen to the point where it was within my reach (Yes, I had thought 
of making the perfect computer but my past experiences quashed that idea pretty quickly). It 
was some time before I became proficient in BASIC and still more time before I could cope with 
assembly language, but shortly thereafter, I decided to buy a computer. For financial reasons, 
I bought a System 80 with Level II BASIC and 16K of memory, despite the fact that the Z80 was 
a different processor. Transferring from the 6502 to the Z80 proved to be less difficult than 
I had imagined and it was not long before I had achieved the same level of proficiency with 
the System 80. 

Why did I buy a computer? Well, to be perfectly honest, for the thrill of the arcade games 
- I figured that at 20<t a time, it would eventually pay for itself! But after a while the novelty 
wore off and I became more interested in the computer itself, in how it worked and how it did 
what it did. I soon found that 16k of memory was not enough and began to hate my cassette, 
so I bought an expansion interface and a couple of disk drives from Dick Smith's. Needless 
to say, as these had only just been released, my system had teething troubles for a long time. 
When you add to that my disappointment in the DOS (OS-80) and the general lack of support software, 
I began to seriously doubt the wisdom of making such a large investment in expanding my original 
system. Then I had what I consider 'a lucky break' - I came across MICRO-80, right here, in 
my own state, no less! 

I suppose there is no need to tell you the rest of the story but I found friendly help, assistance 
and much of the support that I was looking for elsewhere. I began to subscribe to the magazine 
and to learn much more about my computer,and in less time, than I would have done alone. My thirst 
for knowledge and understanding drove me further to the point where I undertook studies in Computing 
Science. At the same time, my association with Ian and this organisation grew to the stage 
where I am now in the position where I can offer to be of help to you through the pages of this 
magazine. 

Lest he feel slighted in any way, I think it essential to acknowledge the tremendous effort 
that Ian has made. He has conceived the idea and worked hard to make it a success. The combination 
of his efforts and yours, the subscribers who provide most of the material and valuable input, 
have made this enterprise so successful that he has been very hard pressed to find the necessary 
time to devote to the magazine. Many thanks to you, Ian, for the work you have done - I shall 
endeavour to meet this challenge. 

- 0000000000 - 
***** NOTICE TO MAIL-ORDER CUSTOMERS ***** 

Very occasionally, some people send cash through the post. We would strongly 
advise against this procedure, and make it clear that we will not accept 
any responsibility for any money sent as cash. For your own protection, 
use Postal Notes, Money Orders, etc. but never send cash. 

- 0000000000 - 
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-**** PEEKing (UK) - by Tony Edwards ***** 

This month I am going to talk about INPUT/OUTPUT again as there are a number of developments 
in this field in this country at this time. We are still promised the Mini -Disk, and the Micro- 
Disk but except for a few prototype units which are doing the rounds I have not seen any sign 
of a commercially available item. However the cost of the standard Disc drives is falling all 
the time, so perhaps the manufacturers are expecting the cheaper smaller units soon. Even before 
these units have arrived the next step is arriving - a 'hard disk', or rather a programmable 
memory unit which is cheap enough to allow it to be used to store programmes for practically 
instant recall. This is now becoming available in two forms, preprogrammed and self -programmable. 
The potential size of the storage available is very great indeed and as the first cost of memory 
devices continues to fall this sort of storage becomes attractive. I hope to test one of these 
devices in the next month or two and will of course report to you on the results. 

Still on the subject of input/output many of our older readers will remember my reports of the 
1200 baud conversion program supplied by the UK software house Kansas. It worked very well 
on the TRS-80, but was never successful on the GENIE/SYSTEM 80. Kansas have now produced a 
different program which does work on the GENIE, at least it works on mine. It is simple to 
use and produces tapes of both machine language and BASIC programmes which load at double speed. 
A good buy to load those long programmes. 

- 0000000000 - 



***** INPUT/OUTPUT ***** 
From: Mr. C. Stobert - Wellington, N.Z. 

My hobby level of computer activity has been satisfied with BASIC, though perhaps a couple 
of games may be better if they moved a little faster. Three BASIC programmes in "TRS80- 
Programs" (Cat No. 62-2064) from Tandy produce hypnotic graphics displays using strings 
PRINTed. Consequently, I have been curious of the display of "Graphix" since it was published 
in Issue 7 of Micro-80, but not sufficiently so to delve into assemblers etc. I recently 
compromised with the attached solution. It may not get top marks for originality, but may 
be of interest to other readers in a similar situation. 16K Memory is reserved from 28671. 
I retained operation from 7000H. 

BASIC loading of memory does not take too long, but line 140 lets you see somethinq is happeninq. 
count to 784. 

Data lines were entered using two people, one reading, one typing, then checking back before 
entering. There are 49 lines of data entering 16 bytes per line, but it did not prove too 
tedious, and the result was worth the effort. We took two dumps before running, and surprise! 
surprise! It worked first time. 

1© CLSs POKE 16553 ,255 

20 DEFINTL,R,D,P,N:DEFSTRA,B,5 

30 PRINT©202, "BRAPHIX - MICRO-80 - JULY 1980" 

40 PRINTS452, "PLEASE BE PATIENT WHILE I" 

50 PRINT@520, "GET MY DATA INTO PLACE " 

60 P=28672:N=1 

70 READS : I FS= " END " GOTO 1 60 

80 A=LEFT$(S, 1) :B=RIGHT*(S,1> 

90 L=ASC ( A ) : R=ASC ( B ) 

100 IFL>57THENL=L-7 

110 IFR>57THENR=R-7 

120 L=L-48:R=R-48 

1 30 D= 1 6*L+R : POKEP , D 

140 PRINT@S96, "POKE NO. " 5 N 

150 P=P+1:N=N+1:GOTO70 

1 60 POKE 1 6526 , : POKE 1 6527 ,112s CLS : X=USR ( ) 

170 DATAF3,21,0F,72,CD,4D,71,CD,A3,7I,21,4D,72,CD,4D,71 

180 * (CONTINUE DATA LINES — NOTE NO SPACE AFTER "DATA" OR BETWEEN 

64e * COMMAS AND DATA BYTES) 

650 DATA41 , 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40 

660 DATAEND 

(Thank you for this contribution, Mr. Stobert. The technique you use for POKEing machine language 
programs into memory is an interesting one and is certainly superior to the more common method 
of converting the machine code to Decimal manually and then entering it into the DATA statements. 
By converting HEXadecimal code in your BASIC Program, you save a considerable amount of work 
and, if the data statements are laid out in lines of 16 bytes per line, it is easy to check 
against a Hex dump. It is only recently that we have seen this technique used and you are to 
be congratulated in being amongst the first to develop it - Ed.) 
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From: R. Edwards - Ivanhoe, Vic. 
To: M. Bauk - Kalamunda, W.A. 

In response to your letter in June '82 MICRO-80, where you requested help to the "Other Venture" 
entitled "Excape from Tramm". 

The first location is quite tricky and took me some hours to get past, so you're not entirely 
alone (I also believed it to be faulty). Nothing can be done on the ship - so enjoy the crash 
landing. Upon landing the command LOOK SHIP will reveal a "nylon rope" which requires GET NYLON 
ROPE to pick it up. Moving south with S you will come to a cliff. The command LOOK CLIFF 
will detect a bush growing on the cliff, although this last command is not necessary. Then 
type ROPE BUSH (another tricky part) and CLIMB ROPE to reach the top of the cliff. 

From here you are on your own, hope you have fun figuring out the rest of the "Venture". 

(I think Mr. Bauk will be eternally grateful for your assistance, Mr. Edwards - Ed.) 

From: J. Wragg - Page, A.C.T. 

Recently I had a small mishap with several tapes - all of the data just disappeared. The tapes 
were stored in a desk drawer in cassette boxes, but not all of the tapes were affected (i.e. 
some tapes, remained intact while others were completely wiped). Can you offer any clues as 
to what may have caused this to happen? 

(Recorded information on cassette tapes, or any magnetic media for that matter, will be damaged 
or erased by exposure to strong magnetic fields, which could have occurred by operating a television 
set or some appliance with an electric motor or transformer on the desk near the tapes. These 
types of appliances can generate strong magnetic fields. Eddy suggests that some of the cassettes 
may have been shielded from damage by the others, but the incident does seem mysterious. It 
would be wise to be careful in this respect in the future and store recorded magnetic media 
away from sources of heat and magnetic fields. - Ed). 



From: J. Finlayson - Bluewater, Qld. 

In your journal I notice fairly frequent references to difficulties with tape loading with the 
System 80. I have one of the early models and I have found no difficulties with loading either 
BASIC or System tapes provided that I clean and demagnetise the tapehead frequently. A number 
of my acquaintances with later models have also found this a certain cure for any difficulties 
but I cannot say the same thing for TRS-80 owners. A problem I have found with saving on computer 
grade tapes has been failure after re-using several times, this has apparently been due to in- 
complete erasure by the builtin deck and is easily overcome by erasing on a high quality tape 
deck if one is available. 

(I must agree with Mr. Fin! ay son's comments, as I have found the same is true on my early model 
System 80. Although I've never demagnetised the heads, I understand that a strongly magnetised 
head can erase a tape while playing it! The motto - for reliable cassette operation, the mechanism 
needs to be clean and use good quality tapes - Ed.) 

From: Mr. G. Bull - Balhannah, S.A. 

Recently I bought an expansion interface and disk drives for my System 80. A copy of DOSPLUS 

was included with the purchase of the first drive from MICRO-80, but I have had problems copying 

my BASIC programs from cassette to disk. They CLOAD in Level 2 without any errors, but I can't 
get them to CLOAD correctly from DISK BASIC. 

(DOSPLUS, NEWDOS and other DOS's more sophisticated than TRSDOS make the assumption that the 
user is already familiar with the Tandy version of DOS and DISK BASIC and therefore neglect 
to mention or emphasize the need to disable the interrupts during cassette I/O. All DOS's use 
the 25mS interrupt to update the software real-time clock and perform other background tasks 
and, as the ROM routines that read and write data to cassette have critical timing loops, it 
is essential that interrupts be disabled during cassette I/O. If they are not disabled, information 
coming in during reading will be lost and CSAVEd information will be overwritten with the interrupt 
pulses. To disable interrupts under DISK BASIC, type: 

CMD "T" (for TAPE?) 

and to enable them, type: 

CMD "R" (for RESTART?) 

This must be done for both reading and writing to cassette while in DISK BASIC. Note that returning 
to DOS or re-booting the system enables the interrupts, irrespective of whether or not CMD "R" 
has been entered. > - Ed.) 
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From: Mr.L. Montero - Bellambi, N.S.W. 

I have bought a System 80 Blue Label and have been using it for quite a while with no problems. 

I CLOADed the program "SOUND EFFECTS REVISITED", published in Issue 22, September, 1981, page 
29. My problem is that the program turns on the internal cassette port instead of the internal 
speaker. Everything else seems to be working perfectly. I believe the problem is in the data 
in line 190 but I do not know what to do. Can you please help me? 

(You are correct in suspecting the data in line 190. A number of people have contacted us concern- 
ing this problem - using the internal speaker on the Blue Label. One user, after much experiment- 
ing, informed us that the way to cure the problem is not to set bit 2 of port 255 (0FFH) high. 
Inquiries to Dick Smith's yielded the same information with - an explanation. 

In order to make the System 80 more compatible with the Tandy, so that it could use existing 
Tandy software that has sound without any patches, the Blue Label requires that bit 2 of port 
255 be set Jow to enable the internal speaker. What this means is that there now exists an 
incompatibility between the Blue Labelr arid earlier System 80' s in this respect. 

Line 190, as originally published is shown as: 

190 DATA205, 127, 10, 229, 221 , 225, 221 , 78, 0, 121 , 183, 200, 221 , 70, 1 , 62, 
5,211, 255, 16, 254, 221 , 70, 1 , 62, 6,211, 255, 16, 254, 13, 32, 235, 221 , 35, 2 
2, 1,35, 1,255,255,33,48,0,9,56,253,24,214 

To enable sound on the Blue Label change it to: 

190 DATA205, 127, 10,229,221,225,221,78,0,121,183,200,221,70,1,62, 
1 , 21 1 , 255, 16, 254, 221 , 70, 1 , 62, 2,211, 255, 16, 254, 13, 32, 235, 221 , 35, 2 
2, 1 , 35, 1 , 255, 255, 33, 48, 0, 9, 56, 253, 24, 214 

Note that the only changes occur in the second line where a 5 becomes a 1 and a 6 becomes a 
2. This will set bit 2 low and should fix the problem according to the above advice. 

Unfortunately, Mr. Montero, your letter omitted to include your full address and I am unable 
to reply in writing. I hope this reply will suffice. - Ed.) 



From: Mr. S. Goodhead - London, England. 

I have just spent a major portion of my Christmas Holiday trying to type in a program from MICRO- 
80 No 6 Vol 3 (May 82) SKYDIVER. 

I was not surprised when after hours of typing and editing out errors it did not work. It is 
a normal occurrence for me; however this time it destroyed itself - "UL ERROR 810". An attempt 
to LIST gave what I think you call garbage. LIST 10 = 10:+- Line 20 gives TT=26810 TA = 26869 
& M = 26820. 

It seems any attempt to poke a value into this area creates havoc. 

I have tried under LD0S, NEWD0S, and also under BASIC 2 (without disk) Poking the USR (0) Address 
it still corrupted the short program - the values were now 17129, 17188, 17139. 

I am wondering if there is something wrong with my computer, I would appreciate your observations. 
I also suspect that data statements may contain errors. Has any other reader had trouble or 
am I the only one? I have TRS-80 Mod 1 Lev II. Lowe electronic interface to Genie +32K expansion 
unit, 2 disk EPSON MX 80. It is unstable - disk unit starts up for no reason and everything 
locks up - I think cable connections are unreliable. 

(Your last statement suggests very strongly that there is indeed something very wrong with your 
computer. The undefined Line error tends to make me suspect that the memory, or some parts 
of it, are defective. When a situation such as this arises it is virtually impossible to debug 
any programs in the machine - I once had a similar problem with a defective 16K block of memory 
in my machine. \'ery short, simple machine language programs would work for a moment and then 
fill the screen with junk, turn on the disk drives and I would have to reset the machine. It 
was only by accident that I suspected a hardware fault, when after altering memory contents 
from a monitor, I found that they had changed after examining them a few moments later, without 
ever running the program! 

Although line 10 lists as garbage, this is, in fact, correct, but the garbage should start just 
after the REM, not where you have indicated. The reason for this is that the first part of 
the program finds where in memory the BASIC program starts and positions to the memory location 
immediately after the REM token. The machine language routine is then POKEd into the memory 
taken up by the title and explains why the warning regarding this line was necessary in the 
text accompanying the program. If you refer to the reply to Mr. Montero' s letter you will notice 
that the DATA lines are the same, and there are no errors here. 
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What I would suggest is that you load the program into memory but do not run it. Examine line 
810 after a short time (say, 10-20 seconds) and if the line lists differently then you most 
probably are having trouble with the memory itself. -Ed). 

- 0000000000 - 



***** MICRO -BUGS ***** 

Inevitably, no matter how careful one tries to be, there will be errors, mistakes and omissions 
in articles and programs. Here's where we make corrections. 

***** Addendum to Mr. Coleman's SAVING AND LOADING M/L PROGRAMS ON ESF WAFER ***** 

One very important point that was missing from my original article on SAVING AND LOADING M/L 
PROGRAMS ON ESF WAFER was how to save the utilities SAVER and LOADER onto wafer themselves! 
Hopefully these few paragraphs will clarify everything. 

First, you will need to enter the machine language utilities into memory. There are a number 

of methods of doing this - most of them have been explained in this magazine before. Probably 

the quickest and easist method would be to use any monitor (such as BMON or the ESF monitor) 

to load the bytes directly into memory. Neither utility is lengthy so this shouldn't take too 

long. Start off with SAVER and load the bytes shown in the second column of the listing into 

the "locations shown in the first column. Do the same thing with LOADER, then exit the monitor 
and return to BASIC. 

Now get out the wafer that you want these two utilities to reside on and put it into the drive. 
It doesn't matter which one you save first, so now save them using these parameters: 

@SAVEX, 16450, 31 ,693 and 
(3SAVEX, 16500, 12, 693 

The reason for having an auto-start address of 693 is that this is the entry-point for the SYSTEM 
command . 

Here is a list of some parameters that I have discovered so far (why don't you write in with 
some others): 



PROGRAM 


START 


LENGTH 


ENTRY 


Adventure #3 


17152 


15616 


17232 


Air Traffic Controller 


17152 


2618 


17152 


Asylum * 


17139 


15620 


17326 


Back-40 (Advent. Inter.) 


17408 


6145 


17408 


BMON 


29248 


3263 


31641 


Disassembler (Instant Soft.) 


28672 


3012 


28672 


Edtasm-Plus (Microsoft) 


17280 


12035 


17280 


Eliza (Tandy) 


20480 


10241 


20480 


Penetrator 


17408 


15360 


17408 


Penetrator Editor 


17408 


15360 


17409 


S.Key 


17216 


1298 


17216 


Invaders (Tandy) 


17174 


3245 


17717 


Starfighter 


17116 


15652 


17116 


Starfighter Trainer 


17116 


15652 


17116 


Zbug stand alone 


17280 


6070 


17280 


* Note that these are the correct parameters 


for ASYLUM: 


last month's were 


incorrect. 



LOTTO PREDICTOR - Issue 10, Sept. '80 (pp. 29-32). 

This program has two errors and some potential dangers that need clarification. 

(a) The copy of this program as supplied on cassette has several control characters between 
the OPEN statement and the comment in line 690 that list as spaces. These produce a SYNTAX 
ERROR during the execution of line 690 and the ON ERROR trap sends the program to line 790, 



VOLUME 3 NO. 8 (JULY, 1982) MICRO-80 PAGE 7 

resulting in an endless loop. Re-type line 690 as it appears in the magazine listing to remove 
these characters. 

690 OPEN "0", 1, "LOTTO/TXT": "FOR CASSETTE USE CHANGE TO 690 INPUT "READY CASSETTE"; D$ 

(b) The program should be terminated in line 780 and not allowed to proceed to line 790. Change 
line 780 to: 

780 PRINT "RUN ENDED": CLOSE :END 

With these changes the program will function as described in the accompanying text. However, 
during the investigation of this program, a number of interesting observations were made about 
the ON ERROR GOTO/RESUME statements. 

(1) The ERROR GOTO statement establishes an error trap and any subsequent errors that 
occur during program execution (or after!) will be processed by the program line 
referenced. The fact that an error at BASIC "READY" prompt causes resumed execution 
of the program in the error handler can be disatrous! 

(2) An error trap can be reset using the statement ON ERROR GOTO 0. 

***** WARNING - JOYSTICKS AND INPUT/OUTPUT PORTS FOR YOUR '80 ***** 

There is no actual bug in this hardware project but there is a potential source of trouble for 
the unwary. Mr. Til ley, from Victoria, had assembled the interface and connected it to his 
Model I only to find the system locked at power up. He made every effort to try and determine 
the cause himself, but to no avail, so he contacted us for help. I couldn't image what the 
trouble could be either and, in turn, contacted Allan Dent, the author. He informed me that 
the Tandy edge connector on the Model I has non-standard numbering in that the odd-numbered 
pins are on the top and not the bottom. Although there should be no problems if you follow 
the'Tfrstfuctions in the article, Mr. Til ley soldered the other end of the rainbow cable to an 
IC plug. In this case, you must be very careful indeed, because the leftmost strand of the 
cable will be connected to pin 2 on the edge and not pin 1! Mr.Tilley found that after rectifying 
this, (and the rest of the wiring on the IC plug) the interface functioned as intended. 

- 0000000000 - 

***** SOFTWARE REVIEW - TANDY'S VERSAFILE - by J. Dowdall ***** 

In my occupation as a software consultant, I have occasion to evaluate many 'off-the-shelf' 
programs and packages for clients. Once in a while, I find one which becomes a useful tool 
in my business VERSAFILE is one of these. 

My client's requirement was for an easy-to-use Data Base which would enable him to store and 
retrieve brief details on formulae used in his Plastics manufacturing. Formulae were to be 
stored by product category, and data entry and retrieval had to be simple enough that relatively 
untrained operators could learn to handle it in a few minutes. 

As it turned out, even I can be lucky! The first program I looked at was Versafile. At first 
it seemed too simple, and I went on to look at some more. After two or three others, though, 
I was back to look again. 

The Command language is straight English - Versafile figures out what you mean. Data entry 
and retrieval are done the same way - by forming statements or questions. Close your statements 
with a period, and the statement is stored in a 'keyword file'. Close with a '?', and the program 
searches the appropriate keyword file for entries which match, and displays or prints them. 
The program has a total of only seven 'commands', all of which are one or two letters or symbols 
which fit neatly into an 'almost English' syntax. 

Records can be of random lengths from one to 240 bytes and no prior formatting is needed - although 
the output is in the form of lines (no formatted screen). This could be a disadvantage, especially 
if your records are near maximum length, as words get chopped off as the line wraps around the 
screen. Another disadvantage is that the records aren't numbered on the display or in print- 
outs. Considering the price of this program, however, these are minor annoyances. 

The manual is supplied in a gold-leaf on brown vinyl ring-binder, with the disk in a plastic 
pocket at the front. Eighteen pages (about one third of them blank) with sample runs and pictures 
of the video are sufficient to get you up and away in less than twenty minutes. 

Versafile is written in BASIC, and the manual gives a few hints on changes you can make to tailor 
the program to your own needs. One change not mentioned is altering the number of keyword files 
to be used. As supplied, eight keyword files are used. My client needed twenty, and the changes 
turned out to be quite simple. 
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To increase the number of keywords, only six lines need be EDITed. these are: 

Line 1000 change the 8 to 20 

Line 1200 change the 45 to 57 

Line 1670 change the 8 to 20 

Line 2000 change the 8 to 20 

Line 6025 change the 8 to 20 

Line 10000 add an extra 12 keywords (DATA items) 

and that's the lot! With more keyword files, Versafile's searches are faster (except global) 
and you can store items under relevant headings. There is only one other change I would recommend: 
after you have entered two or three hundred lines, print out the entire set of files with P 
*? and count the number of entries under each keyword. Then EDIT line 10000 again and change 
the order of the keywords in it to reflect the frequency of use. This gives you another boost 
of speed - not much, but enough to notice on long searches. 

Since obtaining Versatile, I've finally found a way to store magazine article references, and 
retrieve them in a few minutes without having to leaf through the whole collection for the reviews 
I need. And a way to list all of my clients along with phone numbers, computer systems, programs 
used, and possible future requirements. 

My rating for Versatile is: EXCELLENT *** 

- 0000000000 - 

***** THE THEORY AND TECHNIQUES OF SORTING - PART 6 - by B. Simson ***** 

In the first article of this series, a simple method of sorting using exchange techniques was 
shown, which is the "Bubble Sort". Although it is one of the simplest algorithms around for 
handling more than 2 or 3 values, it is not one of the most efficient, far from it. This is 
easily verified by performing a test on a fixed list of numbers and comparing the time taken 
to execute with some of the other algorithms shown in later articles. However, don't write 
off techniques of sorting by exchange as being too inefficient yet, without examining at least 
one other exchange technique. 

PARTITION-EXCHANGE SORT (QUICKSORT) 

This sorting algorithm is a much more efficient method of exchange sorting than "Bubble", as 
its alias imples, "Quick"! Its use of specialized data structures is not as extensive as the 
list insertion sort or the tree sort. It just uses a stack as an auxiliary structure to the 
main array holding the data. The algorithm is defined in figure 1. It involves placing a par- 
ticular item in its final position in the list. In so doing all items which precede this item 
are equal to or smaller in value, and all items that follow it are equal to or greater than 
this item in value. This process splits or partitions a list into two sublists, with the item 
between the sublists placed in the correct and final position in the list, hence the name "Partition 
-Exchange" - a process of partitioning a list and exchanging items. The key to understanding 
this algorithm is that the same process as was applied to the list before it was partitioned 
is applied to each sublist, and that's all. This will eventually place all items in the correct 
position in the list as more sublists are created by partitioning sublists, with a correctly 
positioned item between the sublists. This algorithm can also be implemented recursively, as 
can be seen by its definition, but the approach in figure 1 is by iterative means. The stack, 
provided implicitly by recursion, is used in the iterative approach to store the bounds (positions 
of first and last item) of the sublists as they are created. 

THE ALGORITHM IN DETAIL 

The process starts by pushing the lower and upper bounds of the current sublist on the stack. 
Then, as the flowchart shows, this list is partitioned until the stack is empty. The partition 
module first gets the bounds of the sublist to be partitioned from the stack. On the first 
time that this module is executed, the sublist bounds popped from the stack are the bounds of 
the entire list, as pushed in the initialization phase, but as far as the partition module is 
concerned, it is just another sublist to be partitioned. The sublist bounds are used toinitialize 
two indices into the list. Items are then compared using these two indices, which will initially 
point to the first and last item in the sublist. During the comparison phase, the indices are 
brought closer together by either incrementing the lower index, or decrementing the higher index, 
depending on which one was changed last. The decision on whether to increment the lower or 
decrement the upper depends on the status of a toggle flag. If it is off, the lower index is 
incremented, otherwise the upper index is decremented. The toggle flag is only toggled when 
an item exchange is necessary, that is, when item pointed to by lower index is greater than 
item pointed to by upper index. The comparison phase is complete when the lower and upper 
indices point to the same item, being the item placed in the correct position in the final list. 
It also now separates two sublists. The larger sublist bounds are stacked, and the process 
repeated on the smaller sublist. Stacking the larger sublist ensures minimum stack growth. 
The partition module in the flowchart shows that the larger sublist is processed first, then 
the smaller, but since the smaller sublist bounds are stacked last, they are also popped first 
for processing in the partition phase when it is repeated. 
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/"process ^\ 

\LEFT SUBLISJ? 



PROCESS 
RIGHT SUBLIS 





PUSH LEFT 

SUBLIST 

BOUNDS 



O 



EXIT 



PUSH 
RIGHT 
SUBLIST 
BOUNDS 



o 



1 (d) 



EXIT 



1 (e) 



ILLUSTRATING 

Consider the following list: 39 24 68 45 37 57. One pass in the partition phase will 
be examined. An asterisk before an item indicates the current item being compared using the 
two indices. 



*39 


24 


68 


45 


37 


*57 


TOGGLE FLAG 
ON 


*37 


24 


68 


45 


*39 


57 


OFF (1 & 5 SWAPPED) 


37 


*24 


68 


45 


*39 


57 


OFF 


37 


24 


*39 


45 


*68 


57 


ON (3 & 5 SWAPPED) 


37 


24 


*39 


*45 


68 


57 


ON 


37 


24 


**39 


45 


68 


57 


ON 



Both indices point to the third item on pass completion. This item has been placed in the correct 
final position in the list, and separates two sublists. The process has also guaranteed that 
all items in the left sublist have equal or smaller values, and all items in the right sublist 
have equal or greater values. Sublist 37, 24 is then processed in the same manner, while sublist 
45, 68, 57 is stored. It will eventually be processed when its bounds are popped from the stack 
at the start of a partition phase. When a sublist of only one item is reached, its bounds are 

no longer stacked, and it is considered fully processed. A variation to this algorithm involves 
using this method to create sublists of some critical minimum size. When that size is reached, 
another sorting algorithm is employed to sort the sublist by passing its bounds to the auxiliary 
sort. This reduces the stack size in quicksort, and fewer sublists are created, but I have 
found that this variation is still slower, because of the less efficient sorting algorithm used 
to sort a particular sublist (Bubble, Selection or Insertion). The method shown here processes 
sublists down to their absolute minimum size (one). 

DEMONSTRATION IN BASIC 

Following is a BASIC program demonstrating the algorithm. You will find a great improvement 
in execution time when compared to Bubble, Selection or Insertion sort, particularly when the 
list size is large (for BASIC, say over 20). Variables used are: 



I,J 

L,U 

S 

SP 

FL 

L () 

SL,SR 



INDICES INTO LIST 

LOWER, UPPER SUBLIST BOUNDS 

STACK 

STACK POINTER 

TOGGLE FLAG 

LIST OF ITEMS BEING SORTED 

SIZE OF LEFT/RIGHT SUBLIST 



5000 ' PARTITION-EXCHANGE SORT (QUICKSORT) 

5010 * BY B. SIMSQN. 

5030 DEF I NTA-Z s I =0 s J=0 2 SP=0 s T=0 s FL=0 

5040 CL5sPRINTS>13 s "PARTITI0N-EXCHANBE SORT (QUICKSORT) 

5050 INPUT"SIZE OF LIST TO BE SORTED "5 EL 
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5080 X=EL/4:IFX<10X=EL 

5090 DIML(EL) S S(X) 

5100 FORM=lTOEL 

51 lO L(M)=RND( 1000) -500 

5120 NEXT 

5140 G0SUB5210 

5150 PRINT! INPUT "HIT ENTER TO START THE SORT" 5 X 

5 1 60 PR I NT " SORT I NB . . - " : BOSUB5260 

51 70 PR INT "LIST AFTER SORT: " 

5180 G0SUB5210 

51 90 END 

5200 ' PRINT L LIST 

5210 FORM=lTOEL 

5220 PRINTL(M); 

5230 NEXT 

5240 RETURN 

5250 * QUICK-SORT ROUTINE. 

5260 L=1:U=EL 

5270 SP=SP+ 1 : S ( SP ) =L : SP=SP+ 1 s S ( SP ) =U 

5280 IFSP=0THEN5300 

5290 G0SUB5320:B0T05280 

5300 RETURN 

5310 * PARTITION LIST 

5320 U=S ( SP ) s SP=SP- 1 : L=S ( SP ) : SP=SP- 1 

5330 I=LsJ=UsFL=l 

5340 IFI=JTHEN5400 

5350 I FL C I )< =L ( J ) THEN5380 

5360 T=L(I):L(I)=L(J):L(J)=T 

5370 IFFL=1FL=0 ELSEFL=1 

5380 IFFL=1J=J-1 ELSEI=I+1 

5390 60T05340 

5400 SR=U-I:SL=I-L 

5410 I FSR >SLB0SUB5440 : GOSUB5480 ELSEBOSUB5480 : G0SUB5440 

5420 RETURN 

5430 ' PROCESS RIBHT SUBLIST 

5440 IFSR<=1THEN5460 

5450 SP=SP+1 : S (SP) =1 + 1 s SP=SP+1 : S (SP) =U 

5460 RETURN 

5470 * PROCESS LEFT SUBLIST 

5480 IFSL<=1THEN5500 

5490 SP=SP+1 s S (SP) =Ls SP=SP+1 : S (SP) =1-1 

5500 RETURN 

The processing overheads of Microsoft BASIC running on a 1.7 or 4 MHz machine does not do justice 
to this algorithm. For my own interest, I developed an assembly language version to see just 
how fast it would be in machine language, and I was surprised. BASIC really does seem to take 
an eternity! I also developed a BASIC driver to display the numbers on the screen as they were 
being sorted by the machine language routine. 

QUICKSORT IN Z80 ASSEMBLY 

This routine will sort integers only, allowing for negative values. The following points may 
help to further clarify the assembly language program. The start address and length of the 
array to be sorted are passed to the routine to the storage area labelled "STADD" and "LENGTH". 
This is all that the routine needs to work on the data. The Basic stack is saved on initialization, 
because Quicksort will use the stack for its own operations to store sublist bounds. Then the 
lower and upper bound addresses are found and pushed onto the stack. Consideration is given 
to the fact that each item occupies 2 bytes (integers). "PARTN" involves checking if the stack 
is empty by comparing original stack address with current value of stack pointer. If empty, 
then the sort is complete. If not, the next sublist bounds are popped and stored in locations 
labelled "LOWER" and "UPPER". J-FLAG refers to the toggle flag, being the C register. The 
indices are check for equality. If not equal, then "CMPARE" is called to compare the items 
pointed to by HL and DE (indices). This particular version does not check which sublist is 
greater, but processes the right sublist before the left. This involves checking to see if 
they contain more than 1 integer, and if so, their bounds are stacked, else processing returns 
to "PARTN" to partition the next sublist. "CMPARE" involves getting the actual integers (items 
being compared) pointed to by HL and DE, into HL and DE for easy comparison. Then the sign 
status is checked for both integers using logical operation "XOR". If they have the same signs, 
then their signs are irrelevant in their ordering. Because negative integers are stored in 
two's complement form. If their signs are not the same, then a further check is made in "UNEQU" 
to check the sign in HL. Swapping two items is done most efficiently by using the EX DE, HL 
instruction. The task of placing the items in the HL and DE registers back into the sort array 
is the reverse of the process found in "CMPARE". Since a swap was done, the flag in the C register 
is toggled. "TESTJ" involves testing the status of the toggle flag to determine which index 
to update for the next comparison process. 
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7F00 
JEFF 

7F00 0000 

7F02 0000 

7F04 0000 

7F06 0000 

7F08 0000 



7F0A 
7F0E 
7F11 

7F13 
7F17 
7F1A 
7F1B 
7F1C 
7F1D 
7F1E 
7F1F 
7F20 
7F21 
7F24 
7F25 
7F27 
7F2A 
7F2B 
7F2C 
7F2F 
7F33 
7F35 
7F36 
7F37 
7F39 
7F3A 
7F3C 
7F3F 
7F41 
7F45 
7F46 
7F47 
7F48 
7F4B 
7F4C 
7F4E 
7F4F 
7F51 
7F53 
7F54 
7F56 
7F5S 
7F59 
7F5A 
7F5B 
7F5C 
7F5D 
7F6© 
7F61 
7F64 
7F65 
7F66 
7F68 
7F69 
7F6B 
7F6D 
7F6E 
7F70 
7F73 
7F74 
7F75 
7F76 
7F77 



ED73087F 

31FF7E 

08 

D9 

ED5B007F 

2A027F 

29 

19 

2B 

2B 

EB 

E5 

D5 

21FF7E 

B7 

ED72 

CA417F 

Dl 

El 

22047F 

ED53067F 

0E01 

E5 

B7 

ED52 

El 

280C 

CD7B7F 

18F4 

ED7B087F 

D9 

08 

C9 

2A067F 

B7 

ED52 

7C 

FE00 

2005 

7D 

FE04 

3809 

D5 

El 



E5 

2A067F 

E5 

2A047F 

EB 

B7 

ED52 

7C 

FE00 

2006 

7D 

FE04 

DA217F 

D5 

2B 

2B 

19 

E5 



00100 
00200 
00300 
00400 

00500 
00600 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
01900 
02000 
02100 

02200 
02300 
02400 
02500 
02600 
02700 
02800 
0290© 

03000 
03100 

03200 
03300 
03400 
03500 
03600 
03700 
03800 
03900 

04000 
04100 
04200 

04300 
04400 
04500 
04600 
04700 

04800 
04900 

05000 
05100 

05200 
05300 
0540© 
©5500 
0560© 
05700 
0580© 
0590© 
06©©© 

©6100 

0620© 
0630© 
0640© 
©650© 
0660© 
©670© 
©680© 
0690© 

0700© 
0710© 

0726© 
©73©0 
©74©© 
©750© 
©76©© 
©770© 
©78©© 



PARTITION-EXCHANGE SORT (QUICKSORT) . 

CALLED FROM BASIC AFTER FASSING START ADDRESS 

AND LENGTH OF ARRAY TO BE SORTED. 

AUTHOR: B. SIMSON 

COPYRIGHT (C) 198© 



STACK 

STADD 

LENGTH 

LOWER 

UPPER 

STKSAV 

? 

START 



PARTN 



CHEKEQ 



RETN 



RIGHT 



PUSHR 



LEFT 



PUSHL 



ORG 

DEFL 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

LD 

LD 

EX 

EXX 

LD 

LD 

ADD 

ADD 

DEC 

DEC 

EX 

PUSH 

PUSH 

LD 

QR 

SBC 

JP 

POP 

POP 

LD 

LD 

LD 

PUSH 

OR 

SBC 

POP 

JR 

LrriL.f_ 

JR 

LD 

EXX 

EX 

RET 

LD 

OR 

SBC 

LD 

CP 

JR 

LD 

CP 

JR 

PUSH 

POP 

INC 

INC 

PUSH 

LD 

PUSH 

LD 

EX 

OR 

SBC 

LD 

CP 

JR 

LD 

CP 

JP 

PUSH 

DEC 

DEC 

ADD 

PUSH 



7F0©H 

STADD- 1 5 NEW STACK 

© ; START ADDR 

© ; LENGTH OF ARRAY 

; BOUNDS OF DATA 

5 CURRENTLY BEING PROCESSED 

; BASIC SP 



( STKSAV ),SP 
SP, STACK 
AF,AF> 

DE, (STADD) 
HL, (LENGTH) 
HL,HL 
HL,DE 
HL 
HL 

DE,HL 
HL 
DE 

HL, STACK 
A 

HL,SP 
Z,RETN 
DE 
HL 

(LOWER) ,HL 
(UPPER) ,DE 
C,l 
HL 
A 

HL,DE 
HL 

Z, RIGHT 
CMPARE 
CHEKEQ 
SP, (STKSAV) 



AF, AF* 

HL, (UPPER) 

A 

HL,DE 

A,H 



NZ , PUSHR 

A,L 

4 

C,LEFT 

DE 

HL 

HL 

HL 

HL 

HL, (UPPER) 

HL 

HL, (LOWER) 

DE,HL 

A 

HL,DE 

A,H 

© 

NZ , PUSHL 

A,L 

4 

C, PARTN 

DE 

HL 

HL 

HL,DE 

HL 



5 SAVE BASIC STACK 

? INITIALIZE NEW 

5 SAVE BASIC REGISTERS 

; START ADDR 
j IN INTEGERS 
; IN BYTES 
; HL=END+2 



;hl=start,de=end 

; LOWER 
» UPPER 
5 STACK EMPTY? 



5YES 

5 UPPER 

; LOWER 

S STORE 

; BOUNDS 

5 SET J-FLAG 

; I=J? (HL=DE?) 



;Z IF I=J 

; COMPARE ITEMS 

; RESTORE BASIC SP 
5 RESTORE REGISTERS 



; CHECK RIGHT SUBLIST SIZE 

;SIZE*2 IN HL 
5 CHECK MSB 

5 RIGHT SUBLIST BOUNDS 

5LSB 

5=2 INTEGERS 

5C IF HL<=4 (2 INT) 

?DE TO HL (DIVIDER) 



5NEXT INT 
; LOWER 

S UPPER 

; CHECK LEFT SUBLIST SIZE 

? (HL)=DIVIDER, (DE)=LOWER 

5SIZE*2 IN HL 

SSAME AS RIGHT ABOVE 



; LOWER 

;PREV INT 

; DISPLACEMENT FROM LOWER 

5 HL=UPPER 
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7F78 C3217F 


07900 




JP 


PARTN 




7F7B D5 


08000 


CMPARE 


PUSH 


DE 


5SAVE ADDRESS 


7F7C E5 


08100 




PUSH 


HL 


; POINTERS 


7F7D 7E 


08200 




LD 


A, (HL) 


SGET LEFT INT 


7F7E 23 


08300 




INC 


HL 


; BY LD HL, (HL) 


7F7F 66 


K/OtKfKf 




LD 


H, (HL) 




7F8© 6F 


08500 




LD 


L,A 




7F81 EB 


08600 




EX 


DE,HL 


5LEFT INT IN DE 


7F82 7E 


08700 




LD 


A, (HL) 


;GET RIGHT INT 


7F83 23 


08800 




INC 


HL 




7F84 66 


08900 




LD 


H, (HL) 




7F85 6F 


09000 




LD 


L,A 




7F86 EB 


09100 




EX 


DE,HL 


; HL=LEFT , DE=R I 6HT 


7F87 7C 


09200 




LD 


A,H 


; CHECK SIGNS 


7F88 AA 


09300 




XOR 


D 


; H WITH D 


7F89 FAAB7F 


09400 




JP 


M, UNEQU 


;M IF SIGNS NOT EO 


7F8C E5 


09500 




PUSH 


HL 


;SAVE LEFT 


7F8D B7 


09600 




OR 


A 




7F8E ED52 


09700 




SBC 


HL,DE 


; COMPARE INTEGERS 


7F90 El 


09800 




POP 


HL 


5 RESTORE 


7F91 381E 


09900 




JR 


C,OK 


;no 


7F93 28 1C 


10000 




JR 


Z,OK 


5 SWAP 


7F95 EB 


10100 


SWAP 


EX 


DE,HL 


5 SWAP INT 


7F96 7C 


10200 




LD 


A,H 


5PUT LEFT BACK 


7F97 45 


10300 




LD 


B,L 




7F9S El 


10400 




POP 


HL 


?ADDR OF DEST 


7F99 23 


10500 




INC 


HL 




7F9A 77 


10600 




LD 


(HL) ,A 


5 MSB 


7F9B 2B 


10700 




DEC 


HL 




7F9C 70 


10800 




LD 


(HL),B 


;lsb 


7F9D 7A 


10900 




LD 


A,D 


;PUT RIGHT BACK 


7F9E 43 


11000 




LD 


B,E 




7F9F Dl 


11100 




POP 


DE 


5ADDR OF DEST 


7FA0 13 


11200 




INC 


DE 




7FA1 12 


11300 




LD 


(DE) ,A 


;MSB 


7FA2 IB 


11400 




DEC 


DE 




7FA3 78 


11500 




LD 


A,B 


;get lsb 


7FA4 12 


11600 




LD 


(DE),A 


SLSB 




11700 


; TOGGLE FLAG 




7FA5 3E01 


11800 




LD 


A,l 




7FA7 A9 


11900 




XOR 


C 


5 J-FLAG 


7FA8 4F 


12000 




LD 


C,A 




7FA9 1808 


12100 




JR 


TESTJ 




7FAB 7C 


12200 


UNEQU 


LD 


A,H 


; CHECK HL SIGN 


7FAC E680 


12300 




AND 


80H 




7FAE F2957F 


12400 




JP 


P,SWAP 


;P IF HL (+) (HIGHER) 


7FB1 El 


12500 


OK 


POP 


HL 


;NO SWAP 


7FB2 Dl 


12600 




POP 


DE 




7FB3 79 


12700 


TESTJ 


LD 


A,C 


;test J -flag 


7FB4 B7 


12800 




OR 


A 




7FB5 2003 


12900 




JR 


NZ,DECR 


;nz IF SET 


7FB7 23 


13000 




INC 


HL 


SNEXT INT 


7FBS 23 


13100 




INC 


HL 


j FOR LOWER 


7FB9 C9 


13200 




RET 






7FBA IB 


13300 


DECR 


DEC 


DE 


;PREV INT 


7FBB IB 


13400 




DEC 


DE 


; FOR UPPER 


7FBC C9 


13500 




RET 






7F0A 


13600 




END 


START 




BASIC DRIVER 
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The following BASIC program will drive the sort routine. Of course, before calling the sort, 
the necessary parameters must be passed to it. These are the start address of the unsorted 
array, and the number of integers it contains for sorting. this is done in lines 1220-1250. 
Line 1210 pokes the entry point for the USR (0) function, which is used to invoke the machine 
language program. The destination of the parameters is known by the assembly program, and these 
are poked into their correct locations, least significant byte first. It is important at this 
point to mention that once the start address of the array is found by the VARPTR function, no 
other variables should be defined before calling the sort, since defining further scalar variables 
will generate an entry in the simple variable table, thereby shifting up the array, which will 
then have a different starting address. An option is provided for a visual presentation, with 
optional graphic characters to be included. If a delay is built in the machine language program, 
you may be able to see the workings of the algorithm as execution proceeds. To get the program 
running you should first protect memory at 32500 at the MEMORY SIZE question. Then load in 
the machine language routine using SYSTEM if a tape has been made, or by direct load with a 
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monitor. Then load in the BASIC driver and run. 

IOOO ' PART IT ION-EX CHANGE SORT DRIVER (QUICKSORT) 

1010 ' AUTHOR: B SIMSON, COPYRIGHT (C) 1980. 

1020 * THE SORT PROGRAM IS WRITTEN IN Z-80 ASSEMBLY 

1030 * AND IS CALLED FROM THIS DRIVER BY A USR(O) CALL 

1040 * AFTER START ADDR & LENGTH OF DATA PARAMETERS PASSED. 

1050 * SORT: ASCENDING 

1060 * DATA TYPE: SIGNED INTEGER ARRAY 

1070 * SUITABLE FOR: LEV2, 16K. 

1090 DEFINTA-Y: RANDOM: Z*=" " : R=0: D=0 

1 1 00 PR I NTT AB ( 20 ) ; " QU I CKSORT ROUT I NE " 

1110 INPUT-VISUAL DEMO (Y/N) " ; V*: IFV*="Y "THEN 1360 

1120 INPUT"SIZE OF DATA LIST";L 

1130 DIM ACL) 

1140 PRINTTAB( 10); "GENERATING RANDOM INTEGERS..." 

1150 FORI=lTOL 

1160 A(I)=RND( 1000) -200 » GENERATE TYPICAL SIGNED DATA 

1170 NEXT 

1180 PR I NT "BEFORE SORT" : GOSUB 1320 

1190 S=VARPTR(A(D) 

1200 GOSUB1210:GOT01260 

121 O POKE 1 6526 ,10: POKE 1 6527 , 1 27 * ENTR Y=7FOAH 

1220 POKE32512,S AND 255 ' START 5) 7FOOH 

1230 POKE32513, (S/256) AND 255 

1240 POKE32514,L AND 255 * LENGTH 5) 7F02H 

1250 P0KE32515, (L/256) AND 255: RETURN 

1260 PRINT: INPUT "HIT ENTER TO START THE SORT";S 

1270 PRINT: PRINTTAB( 10) § "SORTING. .. " 

1280 S=USRtO) * SORT ROUTINE 

1290 PR I NT "AFTER SORT: " 

1300 GOSUB 1320 

1310 END 

1320 F0RI=1T0L 

1330 PRINTA(I); 

1340 NEXT 

1350 RETURN 

1360 * VISUAL DEMO DATA 

1370 V*="": INPUT" GRAPHIC & SPL CHARS INCL"sV* 

1380 IFV*="Y"THENR=159:D=32 ELSE R=26:D=64 

1 390 CLS : PR I NTCHR* ( 23 ) : FOR I = 1 5360T0 1 6382STEP2 

1400 POKEI,RND(R)+D:POKEI+l,32 

1410 NEXT 

1420 S=15360:L=512 

1430 G0SUB1210 

1440 Z*="":Z$=INKEY*: IFZ*=""THEN1440 

1450 S=USR(0) 

1460 Z*="": Z*=INKEY$: IFZ*=""THEN1460 

1470 END 

EFFICIENCY 

Quicksort performs well on large lists sizes. It does not have the same property as Bubble, 
etc., vhere sort times increase dramatically as the list size increases linearly. Its efficiency 
is similar to diminishing-increment and tree sort - of the order of n lo&n. This algorithm 
is one of the fastest that I have come across for average random data. There are algorithms 
around which will outperform this one, but only for special forms of data, e.g. the Radix sort 
is extremely fast on numbers which have a limited number of digits. Also, Quicksort does not 
perform very well on semi -ordered lists, because of uneven sublist sizes generated in the partition- 
ing process, but for general cases of random data, it is one of the fastest. I performed some 
timing tests and compared them with those for the SupersnappX Sort published by Snapp Software, 
which compares their sort with Racet GSF. These are the results for 10,000 integers: 

Racet GSF 59 seconds 

SupersnappX 39 seconds 

Quicksort 31 seconds 

Snapp claim that SupersnappXis guaranteed to be the fastest in-memory sort on the market, which 
may be true since this version of Quicksort isn't on the market, but this comparison gives you 
an idea of its efficiency. Timing figures for some other list sizes for Quicksort are: 

1,000 integers 2.2 seconds 

2,000 integers 5.4 seconds 

3,000 integers 8.1 seconds 

4,000 integers 11.3 seconds 
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These were obtained on a Level 2 TRS-80 running at 1.7 MHz. In "The Art of Computer Programming, 
Volume 3 - Sorting and Searching", by D.E. Knuth, he compares Quicksort's efficiency with that 
of the diminishing increment sort, or "Shell sort" (discussed in the fourth article in this 
series). He shows that in the average case, Shellsort will take 15*n'- 25 time units, and Quicksort 
11.67*n*Log n - 1.74n time units, where n is the number of items being sorted. He also indicates 
that the maximum time for Shellsort is less than for Quicksort, a point which was referred to 
above. For comparison, the formal ae for the average case were applied to give the following 
figures: 

LIST SIZE SHELLSORT QUICKSORT 

200 11281 Time Units 12018 Time Units 

500 35465 35392 

1 000 84351 78873 

2000 200621 173925 

4000 477162 380206 

10000 1500000 1057000 

You can see from this table that Quicksort is more efficient in the average case as the list 
size increases. 

TO SUMMARIZE 

A method of sorting by exchange techniques known as the Partition-Exchange sort is very efficient 
for the average case. Items are sorted by placing them in their correct final position in the 
list, producing sublists on either side of it, which contain values that belong in that sublist. 
One sublist is stored while the other is processed in the same manner. A stack is used to store 
the bounds of the stored sublist. 

This ends my di scussion of different internal sorting algorithms, although it is not an exhaustive 
list of algorithms available. It should be understood that no one algorithm is the best, since 
different algorithms suit different applications, and some present trade-offs in memory usage 
that would not be acceptable in other applications. 

The next article will discuss record sorting and external sorting techniques. 

- 0000000000 - 

***** AUTOMATIC GRAPHICS PACKER - by Ken B. Smith ***** 

Those of you who struggled through my article on STRINGS & THINGS will by now have had enough 
practice at string packing to appreciate the time that even a simple graphic shape can consume. 
Even so the savings in memory and the increase in speed makes it all worthwhile. This program 
will enable you to draw a graphics design on the screen and automatically pack it into a string 
for you. This and other features make it well worth the effort to type in. What follows are 
simple instructions. The program itself is well REMed and those who wish will be able to decipher 
its logic without much effort. The REM's may be omitted for speed and ease when typing in. 

Once the program is loaded and RUN the screen will request information on 'STRING NUMBER AND 
LENGTH TO PACK'. If the buffer contains information then answer this question with the string 
to pack and number of bytes to transfer but if you are starting afresh, either with a new design 
or a whole new run, then just press ENTER. 

Once this question has been answered the screen will clear and a graphics pixel will be flashing 
in the centre of the screen. This single flashing pixel indicates the CURSOR Mode and all commands 
are available from this section. You may move this cursor around using the arrow keys, holding 
down the SPACE BAR will erase or leave a blank. The following commands are available from this 
mode using the appropriate key. (Be sure to have upper-case selected). 

(P) - Pack the design on the screen to the buffer for subsequent transfer to a string. The 
buffer has a maximum capacity of 250 bytes so do not try too big a design to start with or problems 
will result from the buffer eating the program. 

(C) - Clears the screen and leaves the cursor in the last position. 

(R) - Repeat the contents of the buffer onto the screen. Useful for progressive animation sequences. 

(A) - Enters the ASCII mode. This will show a large cursor which will respond to arrow keys 
to move without altering the existing graphics, or will place any selected keyboard characters 
onto the screen. Pressing ENTER returns control to the CURSOR mode. Auto repeat is available 
after about a third of a second. 

(J) - If you have a printer with graphics capability this will dump the screen to paper. Initialis- 
ing your printer to the correct mode is your problem. The dump is straight ASCII and emulates 
the JKL features of NEWDOS. As this information is taken straight from the screen, no lower 
case is acceptable and this is the reason the LC is not available in the ASCII mode. 
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Once the pack command has been given, the contents of the screen will be transferred to the 
buffer. when this is completed you will be informed of the number of bytes transferred. Edit 
the string array to which you wish this design to be copied to the exact number of bytes required. 
(You won't be able to later !!!!). The line number equals the string number +10. To aid with 
this chore the target strings are set to 100 bytes. Delete or add enough characters to suit 
your design and RUN. This time answer the question about target and length with this information. 
The buffer will be transferred to the target string. When this is completed, you will be back 
to BASIC. ReRUN the program without an entry for the first question and you will be ready to 
make your second design. 

Once you have completed your designs, merely delete all those lines not required and write your 
program on top of the packed strings. DO NOT ATTEMPT TO EDIT THE PACKED LINES. 

This program is a fully functioning utility, but there are many other extras that could be added. 
Please feel free to add anything you wish^ I would be pleased to see anything extra you might 
add. For myself I have completely automated this program, it even edits its own line numbers, 
but how to manage that is altogether another story 

- 0000000000 - 
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•■•****** Automatic Graphics Packer ********* 

•-****** Written for Micro 80 ********* 

by ********* 

Ken B Smith ********* 

4 CLEAR500 :'** 500 Bytes -for String* 

5 CLS s'** Clear Le Screen 

6 DEFINTA~K,M-Z : =* ** Set. up the integers 

7 A=15360 s ' ** Start of Screen Memory in A 

8 C=191 s'** Whole graphic in C 

9 DIMA$<10) :•-** Set up the array for A* 

10 *** The Variables A<1) to A<9) all have 100 blanks 

11 A$<1>=" 



12 A*<2>=" 

13 A*<3)=" 

14 A*(4)=" 

15 A*<5>=" 

16 A*<6)=" 

17 A*<7)=" 

18 A*(8)=" 

19 A*<9)=" 



20 '** A* has 250 blanks and is the Buffer 

21 A*=" 



26 
27 
28 
29 
30 
31 



36 
37 
38 
39 
40 
41 
42 



Z9*=" " :''** A dummy string used in the screen print 
INPUT "STRING NUMBER AND LENGTH TO PACK "uZZ^Zi 

X=63:Y=23 : ' ** Start positions for cursor 

F*=INKEY* : ' ** Strobe Keyboard and result to F* 

IFF*="A"THEN48 : ' ** Was it an "A" for ASCII mode ? 

IFF*="C"THENCLS:G0T026 : * ** or a "C" for CLS 

IFF*="P"THEN67 : ' ** or a "P" for PACK 

IFF*="J"THENG0SUB108:G0T026 : " ** or "J" for Screen Print 

IFF*="R"THENCLS:PRINT3468,A* :'%% or an "R" for REPEAT 

B=PEEK( 14590) : ' ** Load B with cursor arrow PEEK 

•"■ ** If B=0 then Flash Cursor and back to get next job 

IFB=OTHENRESET(X ? Y) s FORX l=lT010s NEXTs SET ( X , Y) : G0T026 

" ** Check for 0OOO1OOO = Up arrow and dec Y but not < 

IFBAND8THENY=Y-1 : IFY<OTHENY=0 

■■** Check for OOOIOOOO = Down arrow and inc Y but not > 

IFBAND16THENY=Y+1 : IFY>47THENY=47 

•"** Check for 0010000 = Left arrow and dec X but not < < 

IFBAND32THENX=X-1 s IFX<OTHENX=0 

="** Check for OlOOOOO = Right arrow and inc X but not > 

IFBAND64THENX=X+1 s IFX >127THENX=127 



47 



127 



VOLUME 3 NO. 8 (JULY, 1982) MICRO-80 PAGE 17 

43 SET<X,Y) z ' tt SET the new value for X & Y 

44 •" tt Check for 1000000 = Space Bar then RESET pixel and pause 

45 IFBAND128THENRESETCX, Y) s FORX 1=1 T05: NEXT 

46 G0T026 : ' ** Back for more inputs 

47 ' tt The ASCII input section 

48 D=PEEK<A) z ' tt Peek the Screen location in A, result in D 

49 P0KEA,C ;'** Poke the Graphic Byte 191 into Screen Location 

50 B*=INKEY* z'tt INKEY* result to B* 

51 '** If there is nothing from the Keyboard, Flash cursor 

52 IFB*=" "THENPOKEA, 32 :F0RI = 1 TO 10: NEXT :P0KEA.,D:G0T048 

53 B=ASC(B*> z'tt There was an entry. ASCII code to B 

54 IFB=13THENP0KEA,D:60T026 : ' #* Was it an ENTER, then back 

55 '** If entry a valid character, POKE it in and inc A 

56 I FB >3 1 ANDB< 9 1 THENPOKEA , B : A= A+ 1 : I FA > 1 6383THENA= 1 6383 

57 '** The following are cursor controls. P0KEA,D = Skip 

58 ' tt If entry was Left arrow then dec A and check A > 15359 

59 I FB=8THENP0KEA , D : A= A- 1 s I F A< 1 5360THENA= 1 5360 

60 ' tt If entry was Right arrow then inc A and check A< 16384 

61 IFB=9THENP0KEA,DsA=A+ls IFA>16383THENA=16383 

62 ' tt If entry was Down arrow then inc A+-64 (1 line) and check 

63 I FB= 1 0THENP0KEA , D s A= A+64 : I FA > 1 6383THENA= A-64 

64 ' tt If entry was Up arrow then dec A-64 and check 

65 I FB=9 1 THENPOKEA , D s A= A-64 : I FA< 1 5360THENA=A+64 

66 G0T048 z'tt Back again 

67 IFZZO0THEN100 : ' tt Is there a String Number from the entry 
63 L0=VARPTR (A*) s ' tt There wasn't so address of buffer to L0 

69 L0=PEEK(L0+l)+256*PEEK(L0+2) s * #* Now the address of A* 

70 IFL0>3276STHENL0=L0-65536 : ' tt Check for INT limits 

71 L1=L0 z'tt Transfer to spare LI 

72 FORX=15360T016383STEP64 s " tt The whole screen, in lines 

73 F0RZ = X+63T0XSTEP-1 : •" tt now the lines, one byte at a time 

74 IFPEEK(Z)=320RPEEK(Z)=128THENNEXT:NEXTsG0T094 : * ** Blanks? 

75 C1 = Z z'tt First non blank character. Position to CI 

76 F0RZ=XT0C1 : ' tt Now forwards along the line 

77 IFPEEK<Z)=320RPEEK(Z)=128THENNEXT a ' tt to check for blanks 

78 C=Z z'tt First entry on line non-blank to C 

79 F0RZ=CT0C1 : ' ** Characters in the range C to CI on this line 

80 P0KEL0,PEEK<Z) s ' tt Poke them to the buffer string (A*) 

81 L0=L0+1 s'** Increment the buffer string pointer 

82 NEXT : ' tt Continue till that line completed 

83 XX=X+64 %>%% Go down one line 

84 F0RZ=XXT0XX+63 s r t* And check it 

85 IFPEEK<Z)=320RPEEK(Z)=.L28THENNEXT;NEXT : ' %* Check for blanks 

86 POKEL.0,26 s ' *t Put in a line feed 

87 L0=L0+1 s •" tt And don't forget the buffer counter 

88 C2-Z 3 ' tt Hold present position in C2 

89 F0RZ=C2T0Cl+64 : ' ** End of top line to start of next 

90 P0KEL0,24 s ' tt Poke in backspace characters 

91 L0=L0+1 s'*^ And increment the pointer each time 

92 NEXT : ' tt until enough back spaces are entered 

93 IFX<16380THENNEXT : ' tt End of Screen - No, another line 

94 X=L0-L1 s'** Number of characters into X 

95 CLS s-"#& Must I do that again 

96 PR I NT" THERE ARE "sX; "STATEMENTS IN THAT DRAWING 

97 PR I NT "ED IT THE REQ. LINE AND ENTER STRING NUMBER AND BYTES NEXT RUN 

98 END :'** End of packing. Easy heh ! ! I f 

99 ' >fc* Transfer from buffer <A$) to selected string A$(ZZ> 

100 L0=VARPTR(A$ <ZZ) ) i ' tt VLT address for selected string 

101 L0=PEEK<L0+l)+256#PEEK<L0+2> s ' ** Actual address to L0 

102 F0RX=1T0Z1 : ' tt Number of Bytes to transfer 

103 P0KEL0, ASC(MID$<A$, X, 1) ) 5 ' tt Transfer from A* to A*<ZZ) 

104 L0=L0+1 z'tt Increment the counter 

105 NEXT -.'tt Until finished Zl bytes 

106 END s ' tt End of transfer from buffer to target string 

107 ' tt The Screen Print Subroutine. Emulates JKL feature 

108 Z97.=VARPTR<Z9*> :'» VLT address of dummy string Z9$ 

109 P0KEZ9"/.,64 s ' t* Tell the interpreter it's 64 bytes long 

110 F0RZ87.= 15360 TO 16383 STEP 64 z'tt Screen in lines to Z87. 

111 Z 77.= Z 8"/./ 256 i ' tt Extract MSB of Z87. to Z77. 

112 Z67.= Z87.-Z77.*256 s * tt And the LSB of Z87. to Z67. 

113 P0KEZ97.+ 1 , Z67. s ' tt Transfer LSB of screen line to VLT 

114 P0KEZ97.+2..Z77. s * tt Transfer MSB of Screen line to VLT 

115 LPRINTZ9$ s'tt Now print that screen line as Z9* 

116 NEXT z'tt And continue till end of screen 

117 RETURN z'tt Then go back to caller 

118 END s'tt This really is the end 



VOLUME 3 NO. 8 (JULY, 1982) MICRO-80 PAGE 18 

* * * * SOFTWARE SECTION 

***** VARIABLE WORKSHEET Peach and CC ***** 

It is good programming practice to document programs as an aid to understanding how they work. 
At the time of writing a program, this procedure seems totally unnecessary because you are thorough- 
ly familiar with the program, with its variable usage, and with how it functions. However, 
if your memory is like mine, when you come back to it after a month or so to tidy it up or improve 
it, you find that familiarity is gone and that you waste a lot of time trying to recover it. 
With this program, first published in the April '81 issue, you can record much of this precious 
information systematically to serve as documentation for future reference (a printer is required). 

- 00000000000 - 

***** MILEAGE CALCULATOR Peach and CC ***** 

With the aid of this program, originally published in the July '81 issue, you can use your computer 
to keep a record of your car's fuel consumption. The program originally used cassette tape 
to store the information for a particular month and these modified versions do the same. The 
program allows you to enter the data, make projections about fuel requirements, etc. and to 
produce summaries. 

(1) month number (4) litres 

(2) km at start (5) cost 

(3) km at end 

The program then works out: 

(1) kms travelled (4) m.p.g. 

(2) miles travelled (5) litres per 100 km 

(3) km/litre 

After this is done the user is asked if the data is to be saved to cassette. When completed, 
the program returns to the menu. 

The second function projects the number of litres of fuel required for a given trip, given the 
average km/litre arid the distance. 

The summary mode allows you to summarise a particular month, or the full year. Given the month, 
the program will search the data tape (provided one has been created) and when it finds the 
specified month it will load the data and summarise under these headings: 

TOTAL COST TOTAL KM( TRAVELLED) AVG KM/LITRE TOTAL LITRES 

When asked to do a summary for the year, the data for all the months is read and summarised. 
Note that in this mode, the last month read must be a 12 or an error will result. 

- 0000000000 - 

***** CALENDAR - LEVEL II ***** 

A program that produces a calendar seems appropriate at this time of year and this one follows 
the same sort of logic that a person would if the exercise were to be done by hand. In order 
to produce any calendar you need two pieces of information: 

1) the day of the week when the year begins 

2) if the year is a leap year or not. 

Given the year for which you want the calendar, there is an algorithm called Zeller's algorithm 
that generates a unique day number for any day this century starting from March 1st., 1900 (hence 
the restriction on the year). With that it is a relatively simple task to find the first piece 
of information. Knowing the year allows you to quite easily get the second. Although I have 
not tested this program for all the 99 years this century, my confidence in Zeller and modulo 
arithmetic leads me to believe the code in lines 650 - 670 is correct and it does produce an 
accurate calendar for 1983. 

The remainder of the program is concerned with formatting the layout of the calendar and is 
reasonably self-explanatory. The subroutine at 220 generates the calendar in a numeric array 
YR and that at 440 converts this array to character strings for printing one line at a time. 
The title is printed by the subroutine at 290. Line 200 puts my EPSON into double-strike mode 
and line 750 restores it to normal, followed by a hard form feed (the System 80 does not pass 
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MICRO-80 PRODUCTS CATALOGUE 

This catalogue contains a selection from the wide range of peripherals, interfaces, computers and 
software carried by MICRO-80 for your computer. If you don't see the item you want, contact us, we 
probably have it anyway! 

MICRO-80 has been supplying customers throughout Australia and the Pacific region by mail-order for 
2% years. Our customers find this a simple and efficient way to do business. You may place your order 
by telephone or by mailing the order form from any issue of MICRO-80 magazine. Generally, it takes 
about one week from receipt of order until despatch. You should allow 2-3 days for your letter to reach 
us and 7-10 days for the parcel to reach you, making a total turnaround time of 2V6-3 weeks. 

WARRANTY AND SERVICE 

All hardware products carry a 90 day parts and labour warranty either from the 
manufacturer/distributor or from MICRO-80 Pty Ltd. In many cases, warranty servicing can be 
arranged in your own city, otherwise goods will be repaired by our own team of technicians m our 
Adelaide workshops. 

TRADE-INS AND TERMS 

MICRO-80 can accept your existing equipment as a trade-in on new equipment. We can also arrange 

consumer mortgage financing or leasing on larger hardware purchases. Contact us for details. 



BOOKS 









Ij-iri* ftora/Wrfi-r 




IL4SIC MUSTER 




AMt BETTER 




Ji- OTHKR AWSTERIES. 




A* fvJlO^ 




wmmMxWmtk ft) ' 




w 



LEARNING LEVEL II 

by David A. Lien 
Written by the author of the 
Level I Users Manual, Learning 
Level II covers all Level II BASIC 
beyond Level I, plus much 
more. It shows you how to use 
the Editor, explains what the 
many error messages are really 
saying, and leads you through 
conversions of Level I programs 
to Level II. 

Dual cassettes, printers, the 
Expansion Interface with clock 
and other features are 
explained in the same easy-to- 
learn style that made the Level 

I Manual famous. Learning Level 

II is an invaluable supplement 
to the TRS-80 Level II and 
System 80 manuals and is now 
only $7.95 (plus $1.20 p&p). 

BASIC TASTER AND BETTER 
AND OTHER MYSTERIES 

by Lewis Rosenf elder 
Basic is not nearly as slow as 
most programmers think. Basic 
Faster and Better shows you 
how to super charge your BASIC 
with almost 300 pages of fast, 
functions and subroutines. 
You won't find any trivial 
poorly designed "check-book 
balancing" programs in this 
book — it's packed with useful 
programs. 

Tutorial for the beginner, 
instructive for the advanced, 
and invaluable for the 
professional, this book doesn't 
just talk ... it shows how! Basic 
Faster and Better is $32.50 
(plus $1.20 p&p). 



BOOKS 





THE CUSTOM TRS-80 
AND OTHER MYSTERIES 

by Dennis Bathory Kitsz 
Ever wanted to do things to 
your TRS-80 that Radio Shack 
said couldn't be done? How 
about reverse video, high 
resolution graphics, and audible 
keystrokes? 

Now enough? How about 
turning an 8-track into a mass 
storage device, making music, 
controlling a synthesiser, 
individual reverse characters, 
and a real-time clock just to 
name a few? 

The Custom TRS-80 and Other 
Mysteries is packed with more 
than 290 pages of practical 
information and can be yours 
for only $32.50 (plus $1.20 

■ P»P). 

TRS-80 DISK 

AND OTHER MYSTERIES 

by tt.C. Pennington 
TRS-80 Dbk and Other 
Mysteries is the definitive fix-it 
book for disk users. More than 
130 pages of easy to read, 
entertaining and immensely 
useful information. Find out 
how to recover disk files, the 
layout of information on disks, 
memory maps, problem 
solutions ... the list goes on! 
Many readers have saved days 
of work by recreating disk files 
that were unreadable. TRS-80 
Disk and Other Mysteries, which 
has received favorable reviews 
in several magazines, is yours 
for only $27.00 (plus $1.20 
p&p). 
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Manufactured in America by 
following outstanding features: 

• Completely software and hardware 
COMPATIBLE with the TRS-80 Model 1 . 

• HIGH RESOLUTION COLOUR 
GRAPHICS - 4 MODES: 

- B/W LO-RES 128 x 48 

- B/W HI-RES 480 x 192 

- COLOUR LO-RES 128 x 192 in 8 

COLOURS 

- COLOUR HI-RES 480 x 192 in 8 

COLOURS 

• CP/M Disk Operating System. 

• Single and Double Density Disk 
Operation. 

• Supports 5 1 A inch or 8 inch Floppy 
Disk Drives. 

• 48K RAM in TRS-80 mode plus 16K 
High Resolution graphics RAM. 

• 64K RAM in CP/M mode plus 32K 
Banked in, usable in BASIC, plus the 16K 
High Resolution Graphics RAM. 

• 4 MHz Z80A microprocessor — over 
twice the operating speed of the Model 
1. 

The LNW80 II is the ideal computer for the serious hobbyist or businessman who is 
seeking a higher performance, more reliable computer to replace his TRS-80 Model 
1 without sacrificing his investment in software or his programming experience. The 
LNW80 II uses standard Tandy or Tandy compatible disk drives. If you already have a 
disk TRS-80 system you may continue to use your existing disk drives on the LNW80 II. 



LNW Research Corporation, the LNW80 II has the 



• HI-RES COLOUR (R-G-B) and B8cW 
video outputs. 

• 3 screen display modes: 

— 64 characters x 16 lines 

— 80 characters x 16 lines 

— 80 characters x 24 lines 

• SOFTWARE SUPPORT 

Apart from being able to run all TRS-80 
Model 1 software and all CP/M software, 
there is also an extended BASIC 
interpreter available for the LNW80 II 
using most of the same commands as 
the TRS-80 Colour Computer but with full 
LNW Graphics Resolution, SET, RESET, 
POINT, LINE and CIRCLE as well as 
special commands to generate sound 
effects and tones. TRS-80 Colour 
Computer BASIC programs can be 
transferred to the LNW with only minor 
changes. 



LNW80 II Computer - complete except for disk drives and monitor Includes: 

- CP/M Disk Operating System Dosplus 3.4 Double Density Disk Operating System 

— LNW Extended Colour Basic Interpreter $2750 INC.S.T. 

HI-RES Green Phosphor Monitor $265 INC.S.T. 

Super HI-RES Hitachi RGB Colour Monitor $1250 INC.S.T. 

Two Slnglesided 40 Track Double Density Disk 

in cabinet with power supply and cable $825 INC.S.T. 
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SCARFMAN ARMORED PATROL REAR GUARD 



This incredibly popular game craze 
now runs on your TRS-80! It's eat or 
be eaten You run Scrarfman around 
the maze, gobbling up everything in 
your path Try to eat it all before nasty 
monsters devour you. Excellent high 
speed machine language action game 
from the Cornsoft Group With sound 

Price: $17.95 



A realistic tank battle simulation 
Your view is a 3-D perspective of an 
alien landscape. Maneuver your T-36 
tank to locate and destroy enemy 
tanks and robots that lay hidden, 
ready to assault you Clever graphics 
create the illusion of movement and 
dimension From Adventure Inter- 
national With sound. p r i C e $32.00 



Deadly waves of enemy Cyborg craft 
attack your fleet from the rear You are 
the Mothership's sole defender You 
have unlimited firepower but the 
Cyborgs are swift, nimble attackers 
Your abilities are tested hard in this 
game or lightening fast action and 
lively sound from Adventure Inter- 
national Price $26.50 



STRIKE FORCE 



As the primary defender of a world of 
cities under deadly alien attack, your 
weaponry is the latest rapid fire 
missiles, long range radar, and 
incendiary "star shells." Your force 
field can absorb only a limited number 
of impacts A complex game ot 
strategy, skill and reflexes from 
Melbourne House. prjce . $2&5Q 




Your submarine, the U S S Sea 
Dragon, penetrates a mined enemy 
channel Armed with missiles and 
torpedos, you engage the enemy while 
navigating unknown waters. Succeed 
or come to a salty end in this game 29 
screens of horizontally scrolling sea- 
scrape and sound from Adventure 
International p rice: $26.50 




LUNAR LANDER 

As a vast panoramic moonscape 
scrolls by, select one of many landing 
sights.. The more perilous the spot, the 
more points scored - if you land 
safely. You control LEM main engines 
and side thrusters. One of the best 
uses of TRS-80 graphics we have ever 
seen From Adventure International 
With sound 

Price: $26.50 



1 1 1 JOYSTICK 

for the TRS-80 
> MODELS I & III 

I AND SYSTEM 80 

J $49.95 

ADD $2.00 p. & p. 

CONVERT YOUR COMPUTER INTO AN ARCADE 

GAMES MACHINE 

MICRO-80's STICKEROO FEATURES: 

The famous Atari Joystick -Saves your keyboard from abuse 
Compatible with programs from leading U.S. software houses: Big 
Five, Cornsoft, Melbourne House, Adventure International -Will be 
supported in M ICRO-80 «Can be used with your own BASIC or 
ML Programs "Comes complete, ready to plug in and use -Absolutely 

no modifications required to your computer 
PRICE INCLUDES JOYSTICK + STICKEROO INTERFACE + INSTRUCTIONS 

+ DEMO PROGRAM USTING 

PLEASE SPECIFY TRS-80 MODEL I or III OR SYSTEM 80 WHEN ORDERING 

ALL GAMES ADVERTISED ON THIS PAGE ARE STICKEROO COMPATIRLE 
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SUPER NOVA x 

Asteroids float ominously around the 
screen. You must destroy the 
asteroids before they destroy you! (Big 
asteroids break into little ones). Your 
ship will respond to thrust, rotate, 
hyperspace and fire. Watch out for 
that saucer with the laser! As 
reviewed in May 1981 Byte Magazine. 

Price: $26.50 





PENETRATOR ROBOT ATTACK 



Soar swiftly over jagged landscape, 
swooping high and low to avoid 
obstacles and enemy missiles attacks. 
With miles of wild terrain and tunnels 
to penetrate, you're well armed with 
bombs and multiple forward missile 
capability From Melbourne House. 
Features sound, trainer mode and 
customizing program. 

Price: $36.50 



Talks without a voice synthesizer, 
through the cassette port. With just a 
hand laser in . a remote space station, 
you encounter armed robots. Some 
march towards you, more wait around 
corners. Careful, the walls are 
electrified. Zap as many robots as you 
dare before escaping to a new section. 
More robots await you. 

Price: $26.50 




METEOR MISSION II 



As you look down on your view, 
astronauts cry out for rescue You 
must maneuver through the asteroids 
and meteors. (Can you get back to the 
space station?) Fire lasers to destroy 
the asteroids, but watch out, there 
could be an alien Flagship lurking 
Includes sound effects! 

Price: $20.50 
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GALAXY INVASION 

The sound of the klaxon is calling you! 
Invaders have been spotted warping 
toward Earth You shift right and left 
as you fire your lasers. A few break 
formation and fly straight at you! You 
place your finger on the fire button 
knowing that this shot must connect! 
With sound effects! 

Price: $26.50 
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DEFENSE COMMAND J STELLAR ESCORT 




The invaders are back! Alone, you 
defend the all important nuclear fuel 
canisters from the repeated attacks of 
thieving aliens, repeatedly An alien 
passes your guard, snatches a 
canister and flys straight off Quick! 
You have one last chance to blast him 
from the sky! With sound and voice. 



The latest super action game from Big 
Five As the Federation's top space 
fighter you've been chosen to escort 
what is possibly the most important 
shipment in Federation history. The 
enemy will send many squadrons of 
their best fighters to intercept. With 
sound 

Price: $26.50 
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THE BEST IN ENTERTAINMENT FROM 
AMERICA'S TOP SOFTWARE HOUSES 

MICRO-80 now has in stock some of the best games and adventures written for the '80s. These programs 
are supplied on cassette for the Level II/16K TRS-80 Model I (or III). They are also suitable for the System 80 
but sound may not be available unless a hardware modification has been fitted to reverse the roles of 
recorders #1 and #2. Limited stock is available at these prices. 

FROM BIG FIVE 



COSMIC FIGHTER $20.95 

Your ship comes out of hyperspace under a convoy of aliens, you 
destroy every one but another set appears, these seem more 
intelligent. You eliminate them too. Your fuel supply is 
diminishing. You must destroy 2 more sets before you can dock 
— includes sound effects. 



ATTACK FORCE $26.50 

In this fast paced, m/l game 8 alien ramships are warping 
towards your ship. You must dodge them and fire your missiles 
before they destroy you - but watch out for the flagship and its 
death beam!! — complete with sound effects. 



FROIVt ADVENTURE INTERNATIONAL 



ELIMINATOR $26.50 

Your mission is to prevent the marauding alien hoards from 
recovering your energizers from the planet surface. There are 
several types of alien ships — each with different weapons to 
destroy you!! - with sound effects. 

PLANETOIDS $26.50 

It's your ship against a swarm of killer planetoids, as you try to 
destroy them before they destroy you — with sharp graphics and 
sound effects. 

ADVENTURELAND $26.50 

Wander through an enchanted world trying to recover 13 lost 
treasures. You'll encounter wild animals, magical beings, and 
many other perils and puzzles. Can you rescue the Blue Ox from 
the quicksand? Or find your way out of the maze of pits? 

PIRATE'SADVENTURE $26.50 

' ' Yo ho ho and a bottle of rum ... " Meet the pirate and his daffy 
bird along with many strange sights as you attempt to get out of 
your London flat and get to Treasure Island. Can you recover 
Long John Silver's lost treasures? 

MISSION IMPOSSIBLE $26.50 

Good morning, your mission is to . . . and so it begins. Will you 
be able to complete your mission in time? Or is the world's first 
automated nuclear reactor doomed? This is hard. There's no 
magic and no help this time, but plenty of suspense. Good luck! 

VOODOO CASTLE $26.50 

Count Cristo has had a fiendish curse put on him by his enemies. 
There he lies, with you as his only hope. Will you be able to rescue 
him or is he forever doomed? Beware the Voodoo Man . . . 



THECOUNT $26.50 

You wake up in a large brass bed in a castle, somewhere in 
Transylvania. Who are you, what are you doing here, and WHY 
did the postman deliver a bottle of blood? You'll love this 
adventure, in fact you might say it's Love at First Byte. 

STRANGEODYSSEY $26.50 

Marooned at the edge of the galaxy, you ' ve stumbled on the ruins 
of an ancient alien civilization complete with fabulous treasures 
and unearthly technologies. Can you collect the treasures and 
return home or will you be marooned forever? 



MISSILEATTACK $20.50 

This is a real-time game with sound effects. You must protect 
your cities against enemy missiles, as your skill increases, so 
does the level of difficulty making accuracy a must. 

SPACE INTRUDERS $26.50 

A very fast game with the deluxe version of Space Invaders, 
complete with "spitting" invaders and the SOS of escaping 
aliens — with sound effects. 

MYSTERY FUN HOUSE $26.50 

Can you even find your way in to the Strangest Fund House in 
existence let alone find your way completely through it or will you 
get kicked out when the park closes? 



PYRAMID OF DOOM $26.50 

An Egyptian Treasure Hunt leads you into the dark recesses of a 
recently uncovered Pyramid. Will you recover all the treasures or 
more likely will you join its denizens for that long eternal sleep? 

GHOST TOWN $26.50 

Explore a deserted western mining town in search of 13 
treasures. From rattlesnakes to' runaway horses, this 
Adventure's got 'em all! (Also includes new bonus scoring 
system). 

SAVAGEISLAND $26.50 

Part 1 — A small island in a remote ocean holds an awesome 
secret. Will you be the first to uncover it? NOTE: This is the first 
part of a larger adventure. It will be necessary to buy further tapes 
to complete the entire Adventure. WARNING: FOR EXPERIENCED 
ADVENTURERS ONLY! 

SAVAGEISLAND $26.50 

Part 2 — After struggling through Part 1 , you have the consolation 
of knowing it's half over. This concludes the two part Adventure. 
It requires you have completed Part 1 and received the password 
to start Part 2. 

GOLDEN VOYAGE $26.50 

WARNING: For Experienced Adventurers Only! The King lies near 
death in the royal palace— you have only three days to bring back 
the elixir to cure him. Journey through the lands of magic 
fountains and sacred temples , stormy seas and gold , gold , GOLD! 
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BUY YOUR MODEL 3 FROM MICRO 80 
AND SAVE SOO's 




DRIVE • ACTIVE 
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UUIflCHESTER DISH SYST8T1 



MICRO-80 fits reliable MPI disk drives to the TRS-80 Model 3 to give system capacities and 
capabilities far in excess of those available elsewhere. All our conversions utilise low 
dissipation, switching-mode supplies to avoid screen jitter and overheating. The disk 
controller boards used incorporate special compensation circuitary for 80 track disk drives 
and may also be used to run 8 inch disk drives with an appropriate cable and DOS. 

MODEL 340 $3130 

2 40 TRACK SINGLE-HEAD DISK DRIVES GIVING 
350K FORMATTED STORAGE, 48K RAM 



MODEL 340 + 

2 40 TRACK DUAL-HEAD DRIVES GIVING 
700K FORMATTED STORAGE, 48K RAM 



$3350 



$5895 



MODEL 500 - 5 + MEGABYTE MODEL 3 

1 40 TRACK DUAL-HEAD DRIVE GIVING 350K 

OF FLOPPY DISK STORAGE FOR TRANSFERRING 

PROGRAMS AND BACKUP, 48K RAM, EXTERNAL 

5 MEGABYTE WINCHESTER SUB-SYSTEM, 

DOSPLUS 4.0 DISK OPERATING SYSTEM 

The MODEL 500 offers the high speed, mass storage capacity and reliability 

of a Winchester drive for thousands of dollars less than you would pay 

for any comparable system. Model 500 is a serious business computer 

able to tackle the most demanding tasks. 

WINCHESTER DISK DRIVE SUB-SYSTEM 5MByte $2995 

10MByte $3750 

This Winchester Disk Drive sub-system provides either 5 or 10 Megabyte 
of reliable, high speed storage. It connects to any standard Model 3 
equipped with one or more floppy disk drives and does not void the 
Tandy warranty. Complete with DOSPLUS 4.0 Disk Operating system. 

Prices include Sales Tax and are subject to change without notice. Prices are FOB Adelaide. Add $20 road freight anywhere in Australia. 
All computers and peripherals carry MICRO-80's Australia-wide. 90-day warranty covering parts and labour. 
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THE SMITl»CORONA TP-1 DAISY WHEEL PRIMER 
A low-priced letter quality printer 




Ideally suited for small businesses or the home user, the TP-1 is a microprocessor controlled, 
correspondence quality printer that prints fully formed characters at an average print speed of 12 
characters per second. This simple to operate, compact printer is compatible with most microcomputers 
and comes with the standard Centronics parallel interface (an optional serial data interface is available) 
and features: 

• 128 ASCII Character Set (88 printable) 

• 10 CPI or 12 CPI character spacing 

• 105 characters per line (or 126 in 12 pitch) 

• Handles letter and legal sized paper (up to 13" wide) 

• Variable line spacing and impression control 

• Prints original plus up to three copies 

KNEW * NEW ^ NEW * NEW * 
Tractor Feed Mechanism for Daisy Writer (ET121) $380 

Now your Daisywriter 2 can handle continuous stationery. Ideal for invoices and statements, etc. 

Prices include Sales Tax and are subject to change without notice. Prices are FOB Adelaide. Add $20 road freight anywhere in Australia. 

All equipment carries MICRO-80's Australia-wide 90-day warranty covering parts and labour. 
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DISK OPERATING SYSTEMS & 
DEVELOPMENT SOFTWARE 

You can increase your programming productivity, the execution speed and 'user friendliness' of your 
programs by using an enhanced Disk Operating System (DOS). Together with the other utility software, you 
can get the most from your disk drives. 



DOSPLUS3.3 $99.95 

(Specify Model I single or double density or Model III) 
An economic DOS intended for the first-time user and requiring 
single-sided disk drives. (The TRSDOS & DISK BASIC MANUAL 
is required to supplement the DOSPLUS manual). 



DOSPLUS3.4 $$149.95 

(Specify Model I single or double density or Model III) 
With a high degree of compatibility with TRSDOS, DOSPLUS 3.4 
supports single- or double-sided, single or double density, 5" or 
8" disk drives with any track count (up to 96). Suitable for the 
first-time or experienced user wanting a fuss-free, bug-free, 
easy to understand but very powerful DOS which supports 
variable length records up to 255 bytes long. Comes with a stand 
alone manual. 



ENHBAS $52.95 

ENHBAS adds over 30 new commands and functions to your 
BASIC interpreter including high speed SORT, labels in BASIC, 
RESTORE to any line number, WHILE-WEND for structured 
programming, SCROLL, LEFT, INVERT, DRAW and PLOT to give 
you ease of control over graphics, SOUND and PLAY to add 
realistic sound effects and many more. Makes programming a 
breeze! Available for Model I or III, disk or cassette — specify 
which when ordering. 



N EWDOS 80 VERSION 2.0 $1 69.00 

(Specify Model I or Model III) 

Newdos 80 suits the experienced user who has already used 
TRSDOS, understands the manual and is prepared to learn the 
somewhat complicated syntax of one of the most powerful DOS's 
available. With the correct hardware, Newdos 80 supports any 
mix of single- or double-sided, single or double density, 5" or 8" 
disk drives with track counts up to 96. It provides powerful, 
flexible file handling in BASIC including variable length records up 
to 4096 bytes. Definitely not for the beginner. 

MASTER DISK DIRECTORY $20.95 

FIND THE PROGRAM FAST!! PAYS FOR ITSELF BY RELEASING 
REDUDANT DISK SPACE!! MASTER DIRECTORY records the 
directories of all your individual disks onto one directory disk. 
Then itallowsyouexaminethem,findan individual filequickly, list 
files alphabetically, weed out redundant files, identify disks with 
free space, list files by extension, etc., etc. This program is 
invaluable for the serious disk user and will pay for itself many 
times over. 

THE FLOPPY DOCTOR/MEMORY DIAGNOSTIC 
Model I Disk$36.50 Model III Disk$43.50 

THE MICRO CLINIC offers two programs designed to thoroughly 
check out the two most trouble-prone sections of the TRS-80 — 
the disk system (controller and drives) and the memory arrays. 
Both programs are written in Z80 machine code and are supplied 
together on diskette foraminimum32K, one disksystem. Specify 
Model I or Model III. 



ADVENTUREHINTBOOK $10.95 

If you can not go any further this will give you clues that may help 
— written by Scott Adams for Adventures 1—9. 

LABYRINTH $26.50 

Labyrinth — you move through a gigantic labyrinth and scattered 
through this nightmare are a multitude of objects and obstacles . A 
minotaur prowls the corridors — you must kill it before it kills you , 
Labyrinth has over 550 locations — be patient. 



ASYLUM $26.50 

Asylum places you in a cell, you have to escape. It's harderthan it 
sounds, lots of hazards will be encountered. 



DEATH MAZE 5000 $26.50 

Deathmaze 5000 is another 3-D adventure. You move through a 5 
storey building - your goal is to leave the deathmaze alive. 
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PRINTER 




PRICED 

AT 

OnIy 

$475 



*^^**llippllllii 

If you have delayed buying a Printer, then now is the time 
to reconsider. The Seikosha has been designed for simple 
operation and puts full dot addressable graphics at your 
command. You can repeat a column of data as many times 
as you like with just one command. Double-width 
character and dot addressable positioning are software 
controlled. 



Other features: 

® Automatic Printing avoiding data loss when the 

maximum line length is exceeded. 
® Allows mixing graphics, regular and double 

width characters on the same line. 
® Up to 50 characters per second. 
• Standard Centronics type Parallel interface. 
® Self-test mode. 
® Optional RS-232-C Serial Interface. 



PRINTERS GALORE AT UNBEATABLE PRICES 

MICRO-80 has a range of printers to suit every requirement from dot-matrix to correspondence quality daisywheel. 
Choose from the table below: 



BRAND 


MODEL 


TYPE 










SPECIFICATIONS 












COL 


SPEED 


BI-DIR 


LOWER 


PAPER 


GRAPHICS 


INTER 


FREIGHT 


PRICE 


WEEKLY 










CPS 




CASE 


FEED 


HI-RES 


FACES 

P 


1 


$ 999 


PAY- 
MENTS* 


EPSON 


MX-80III 


DM 


80 


80 


Y 


FULL 


F/T 


$ 8.35 


EPSON 


MX-100III 


DM 


132 


100 


Y 


FULL 


F/T 


HI-RES 


P 


1 


$1500 


$12.55 


MICROLINE 83A 


DM 


132 


120 


Y 


FULL 


F/T 


BLOCK 


P/S 


1 


$1599 


$13.37 


MICROLINE 84 


DM 


132 


200 


Y 


FULL 


F/T 


HI-RES 


p 


1 


$2220 


$18.57 


MICROLINE 84 


DM 


132 


200 


Y 


FULL 


F/T 


HI-RES 


s 


1 


$2340 


$19.57 


CITOH 


8510 


DM 


80 


112 


Y 


FULL 


F/T 


HI-RES 


p 


1 


$ 999 


$ 9.19 


CITOH 


Ml 550 


DM 


132 


120 


Y 


FULL 


F/T 


HI-RES 


p 


1 


$1499 


$12.54 


OLIVETTI 


PRAXIS35 


DW 


100 


6 


N 


FULL 


F 


NO 


p 


1 


$ 895 


$ 8.33 


OLIVETTI 


ET121 


DW 


132 


12 


N 


FULL 


F 


NO 


p 


2 


$1500 


$12.55 


OLIVETTI 


ET221 


DW 


132 


16 


N 


FULL 


F 


NO 


p 


2 


$2650 


$22.17 


ITOH 


F10 40P 


DW 


132 


40 


Y 


FULL 


■ F 


NO 


p 


2 


$1950 


$16.31 


ITOH 


F10 40S 


DW 


132 


40 


Y 


FULL 


F 


NO 


s 


2 


$2190 


$18.32 



NOTE: The following symbols are used: 

TYPE+ DM = DOT MATRIX 

DW = DAISYWHEEL 
BI DIRECTIONAL Y = YES N = NO 
LOWER CASE FULL — means Lowercase descenders to 

below line 
PAPER FEED F - means Friction Feed 

T — means Tractor Feed 

F/T — means both Friction and Tractor 

Feed included in price 
INTERFACES P = PARALLEL (Centronics) 

S = SERIAL (RS232) 
FREIGHT 1 - Add $10 for road freight anywhere in 

Australia 

2 — Add $20 for road freight anywhere in 

Australia 

Note: Prices subject to change without notice. Prices quoted include Sales Tax at the 17.5% rate. Call or write for more details. 
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the Form Feed character (OCH) through the printer driver). Both of these lines may need to 
be changed depending on your computer and printer. In the double-strike mode the routine at 
440 does not slow the process down, but in normal mode the printer waits for a time as each 
new line is constructed. The alternative would be to produce the calendar in a string array, 
which would use much more string space and need more memory than the 4K used by this method. 

- 0000000000 - 

***** EXTENDING THE BASIC INTERPRETER: HEX CONSTANTS by Roger Bowler ***** 

As a Level II user, you may occasionally have grown tired of converting hex RAM addresses to 
decimal before you can use them in BASIC; or you may find programs difficult to understand because 
they refer to RAM addresses in decimal. Maybe you have even looked enviously at the Disk Basic 
manual and wished you could write statements such as: 

FOR I=&H3C40 TO &H3CBF: POKE I,&H86:NEXT 

Well, in the world of software nothing is impossible, and after running this short program, 
you will be able to write and run programs containing hex constants as in the above example. 
First power up the 80 with a MEMORY SIZE of 20416 (4K RAM) or 32704 (16K RAM), then CL0AD and 
RUN this program. All the program does is to POKE some machine code into the 60 bytes of RAM 
immediately above the MEMORY SIZE limit, then it executes a couple of sample statements containing 
hex constants, just to demonstrate that the machine code works. Now you no longer need to keep 
the BASIC program resident, so you can type NEW and your '80 will quite happily accept programs 
with hex constants in them. Incidentally, if you are typing this program in from a listing, 
you would be well advised to CSAVE it before running it. Of course, this program will have 
to be CLOADed and RUN again every time you power on. 

Now how does it work? We are fortunate that the BASIC interpreter used by the '80 was designed 
to allow extensions such as this. There are about 2 dozen strategically located points during 
interpretation where the ROM code will jump out into the RAM to see whether the user wishes 
to do any additional processing. This is called an "exit" from the ROM, and in a normal cassette 
system all these exits are unused. The exit we are using is taken by the interpreter whenever 
it finds an expression in your program which starts with a "&"; it consists of a call out to 
RAM location 4162H. Now unless you have Disk Basic loaded, location 4152H contains a jump back 
into the ROM to a piece of code which prints the "L3 ERROR" message. What we have done is to 
replace this jump by a jump to our own machine code in high RAM; our code will function as an 
extension of the BASIC interpreter by packing the hex characters following &H into their binary 
equivalent, and passing the result back to the ROM. 

When we come in to our code, the ROM gives us the address of the "&" character in the HL register 
pair. In return for this generosity, we have to update the HL register pair to point past the 
hex characters, and we store the result (i.e. their packed value) as a 16 bit integer with LSB 
at location 4121H and MSB at 4122H. We also have to set location 40AFH equal to 02 to tell 
the ROM that the value we're sending him back is an integer (as opposed to single precision 
or string etc.). Then we can do a simple RET to continue interpretation. 

So now you can run programs with &H constants in them, and what's more, the syntax is compatible 
with Disk Basic! 

Although the BASIC program shows the machine code being stored in high memory, this is only 
an example, since the machine code is completely relocatable. This means it doesn't contain 
any references to addresses within itself; all jumps are relative using the "JR" or "DJNZ" instruc- 
tions. So you may well prefer to save the machine code somewhere else in RAM, to avoid having 
to protect high memory. One way of doing this is to shift the "start of basic" pointer at 40A4 
to point to 4325 instead of 42E9. This is done by: 

POKE 16548,37: POKE 16549, 67: NEW 

(The NEW forces BASIC to recompute its pointers to account for the new start address). Ignore 
the SN ERROR. Now you have freed up locations 17129-17188 (42E9-4324) into which you can store 
the machine code. Happy hexing! 

I always build USR routines using dynamic string packing. This technique (described in Appendix 
H of the Level II Basic manual) involves packing the machine code into a string variable from 
DATA statements during program initialisation. It has a number of drawbacks, not the least 
of which being that it is rather S-L-0-W. But these I can live with. What I do draw the line 
at is writing machine code in DECIMAL; that is something I cannot do! Hasn't this crazy computer 
heard of HEX? 

Well, mine has; I write my machine code like this: 

200 DATA CD7F0A,5E23,56,EB,C39A0A,* 

and I include a little basic subroutine at the end of each program to pack these DATA statements 
into strings. 
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The subroutine reads each "instruction" from the data as a string, then decodes and packs each 
pair of hex digits into a byte which it appends to string P$. The subroutine continues to build 
up the string until it reads an asterisk. Then by means of a quick 

POKE 16526, PEEK(VARPTR(P$+1)=P0KE 16527, PEEK(VARPTR(P$)+2) 

we are al 1 ready to do a USR cal 1 . 

It is quite easy to set up several independent USR routines in this way; I just make sure each 
set of DATA statements ends with an asterisk, and save the routine in another string variable 
before calling the hex pack subroutine again. 

One thing to watch when using dynamic string packing - BASIC tends to move strings around in 
RAM (to reclaim unused string space), so set the VARPTRs immediately before making the USR call. 

- 0000000000 - 



***** SERIES IMPEDANCE CALCULATIONS L2/16K - by W.G. Heath ***** 

This program illustrates one of the fundamental formulae connected with electrical problems 
and may be of interest to electrical engineering students and amateur radio enthusiasts. 

As explained on the first two displays on the video screen, a wide variety of problems are solvable 
and not confined to the general form of series resistance, inductance and capacitance alone. 
Some of these elements need not be present but the program is still adaptable, it will also 
operate the OHM's law solutions of current, resistance and voltage (I=E/R) 

Following an indication of the scope of the program, a display list of all the variables involved 
is shown. Then follows the request for input of known and unknown values related to the problem 
in question. 

The calculations are then made and the individual variables are displayed together with their 
measured or calculated values. 



A graphical display of the general series circuit 
vector relationships and the impedance diagram. 



only, follows, plus an outline of the various 



- 0000000000 - 



Shown below are views of the screen: 



»> SERIES IHPEDANCE CIRCUIT <« 



A HIDE VARIETY OF ELECTRICAL CIRCUIT PROBLEHS OF THIS 
CATE60RY ARE SOLVEABLE DEPENDIN6 UPON THE KNOWN AND UNKNOWN VAR- 
IABLES AVAILABLE. 

THE PROSRAHHE HILL CALCULATE ALL THE VARIABLES SHOWN 
IN THE FOLLOWING SCHEDULE SUBJECT TO APPROPRIATE INPUT VALUES. 

IT BILL HANDLE TWO UNKNOWNS SIHULTANEOUSLY PROVIDING 
ONE UNKNOWN IS EITHER I, E, OR R, AND THE SECOND IS EITHER L, C 
OR X. HAKE NO ENTRY FOR THE UNKNOWN VALUES. I.E. PRESS <ENTER> 
ONLY WHEN INPUT? FOR THESE VARIABLES IS CALLED FOR. 



>- 



< ENTER >? 1 



< 



THE PR06RAHHE CAN BE USED FOR PROBLEHS HHERE NO CAPAC- 
ITANCE OR, ALTERNATIVELY, NO INDUCTANCE IS PRESENT. 

INDUCTANCE CAN BE CALCULATED FOR AN INDUCTIVE CIRCUIT 
NITHQUT CAPACITANCE IF I, E, AND R, ARE KNOWN VALUES. 

FINALLY THE PROSRAHHE HILL ALSO OPERATE A SIHPLE OHH'S 
LAN SOLUTION ( I = E/R ) BY INPUTTING ( ZERO ) FOR BOTH C 
! CAPACITANCE ) AND L ( INDUCTANCE ) SIHULTANEOUSLY. 

AFTER ALL CALCULATIONS HAVE BEEN COMPLETED A FURTHER 
THO SCROLLS OF THE SCREEN CAN BE HADE WHICH MILL DISPLAY A CIR- 
CUIT DIA6RAH OF THE GENERAL SERIES CIRCUIT FOLLOWED BY A VECTOR 
DIA6RAH AND IHPEDANCE DIA6RAH 
< ENTER >? 



VL - VC 



VECTOR 
DIASRAH 



IHPEDANCE 
DIA6RAH 




1 



LH-d/CN). 
LN > 1/CH 
I.E. X IS + 



> 



< ENTER >? 



>» REVIEW OF VALUES OF ALL VARIABLES <« 



CURRENT 
VOLTAGE 
RESISTANCE 
EBUIV REACT 
PHASE ANGLE 
IND. REACT. 
CAP. REACT. 
R.VOLT DROP 



I = 14.1421 
E = 200 

R = 10 

II ■ 10 
T = 45 

G ■ 15.3052 

J = 5.30515 

VR = 141.421 



INDUCTANCE 
FREQUENCY 

CAPACITANCE 
IHPEDANCE 
POWER FACTOR 



L = .0487177 
F = 50 
C = 6E-04 
Z - 14.1421 
= .707107 



IND.VOLT DROP VL = 216.448 
CAP. VOLT DROP VC = 75.0262 
RESONANT FRE8. H = 29.4374 



POWER (WATTS) P * 2000 



» ALL CALCULATIONS COMPLETED - 



READY 

> 
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***** DR. WHO ADVENTURE LII/16K or 32K/Disk ***** 

This adventure will just run in a Level 2 16K machine provided the following instructions are 
followed. It will run also with Disk BASIC (with at least 32K of memory). 

For the disk version, lines 720 and 730 are replaced by the two lines listed separately, the 
program supplied on the distribution disk has already been converted for you. 

This is an unusual adventure, using a data file in a manner similar to the Epyx games. The 
data file is the file called DRWHO/DAT on the distribution disk. This was created using the 
initialization program listed. If you are entering this program from the magazine you will 
have to run this program to create a data file either on disk or cassette. 

The program uses a full 16K which is why it needs the data file. 

For a cassette based system, use the following procedure: 

(1) Type in the initializer, check it, and SAVE it to tape. 

(2) Type in the adventure, check it, and SAVE it to tape (a different one... leave this positioned 
to just after the program). 

(3) Reload the initializer and swap back to the tape the adventure is on (it should be positioned 
just after the program) . 

(4) Run the initializer and answer the question with T for tape. 

(5) Rewind the tape, reload the adventure, and run it. 

(6) Disk users type in both programs and SAVE them to disk. Add the lines provided to make 
the cassette version work on disks. Run the initializer and answer D. Then run the adventure. 

NOTE: People with more than 16K and disk users may find it advantageous to merge the data in 
the initializer with the main program. Although no explanation of how to do this is given here, 
it should not be too difficult. 

INSTRUCTIONS. 

After Dr. Who collected the Key to Time and defeated the Black Guardian, he received many praises 
and went on to greater things. The Key itself was again broken into its component pieces and 
scattered throughout the universe. 

But the dark forces threaten, and in order to save the universe, the Timelords again need the 
Key. You have been chosen to go forth and locate it for them. You will be given a TARDIS (rather 
old and unreliable, but the best available) that has the coordinates of the planets on which 
the six parts are located pre-programmed into it. By RESETing its controls you can travel between 
the six planets and Gal af ry. As usual, the six parts are disguised as other things, and you 
will have to use your intuition to figure out which is which. (There is a way to tell...) 

All the planets are inhabited, and most inhabitants tend to be antisocial. Whether you TALK 
to them, HIDE from them, kill them, OFFER them gifts of appeasement, or simply ignore them is 
up to you. Most objects are obvious, but some are hidden and have to be SEARCHed for. Only 
one key part is on any one planet. Beware the maze on Peladon... 

You can use commands of up to 64 characters. The program will ignore any words it doesn't under- 
stand. Commands can be one, two or three words long. 

When you find all the parts (or think you have), take them back to the throne room on Gal af ry 
to win. 

The program only needs to read in data once. You will only need to rewind the data tape if 
you type BREAK or answer no to the "Another game?" question. 

- 0000000000 - 

***** LOWER CASE CONVERTER FOR BASIC PROGRAMS by D.M. Wright ***** 

After you have fitted a lower case conversion kit to your TRS-80/System 80 and have a Driver 
routine operating to your satisfaction, you will no doubt look back at all those BASIC programs 
you have produced with only capital letters displayed. While many programs have only a few 
statements in the way of instructions to modify, the thought of virtually retyping some of the 
long Adventure type programs is most daunting. 

The following Assembly language program goes a long way to solving the problem as it converts 
the characters inside PRINT statements into lower case with the exceptions of the first letter 
in the quotation and the first letter after a period and two spaces which is assumed to be a 
new sentence. It only alters characters within the PRINT statement and does not convert program 
commands and statements. 
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It will be necessary to finally edit the program to capitalise people's names or titles which 
occur in PRINT statemments such as system 80/trs-80 ... or ... commander smith ... 

Conditional statements may also need editing as follows: 

IF A$ = "Yes" THEN 100 would need to be altered back to, 
IF A$ = "YES" THEN 100 or perhaps better still, 
IF A$ = "YES" OR A$ = "yes" THEN 100 

So with a little care in final editing you too can have small letters in abundance throughout 
your programs and across your screen. 

The program can be assembled with an Editor/ Assembler and can be relocated by altering the ORG 
in line 140 of the source listing to 0BE10H for a 32K system or to 0FE10H for a 48K system. 
Alternatively, the HEX dump (for 16k system) that follows the source listing can be entered 
with a low memory monitor. 

For this program to work you must have lowercase installed in your machine and a lower case 
driver active. 

To load from tape: 

1. Answer MEMORY SIZE? (READY?) with: 32272. 

2. Load the machine language using SYSTEM. 

3. Type: /32272 (ENTER/NEWLINE) to start. 

To load from distribution disk: 

1. BASIC, 65040 (ENTER/NEWLINE) 

2. CMD "CONVERT" 

3. Type: / 65040 (ENTER/NEWLINE) to start. 

The program will initialize and display a copyright message. Then load the BASIC program you 
want converted and when ready, type: 

SYSTEM (ENTER/NEWLINE) 
/32272 (ENTER/NEWLINE) 

You can use the converter as many times as you like. The CMD file and EDTASM file supplied 
on the distribution DOS are for a 48k system. For a 32k system and suitably assembled machine 
language program, use 48656 as the memory size and entry address. 

- 0000000000 - 



40A4 
40F9 
06CC 
4020 

7E10 
7E10 
7E13 
7E16 
7E19 
7E1C 
7E1E 
7E21 
7E24 
7E27 
7E29 
7E2C 
7E2F 
7E33 
7E36 
7E37 
7E39 
7E3A 
7E3C 



CDC901 

21BC7E 

11403C 

018000 

EDBO 

213C7F 

11003D 

014000 

EDBO 

21803D 

222040 

ED5BA440 

2AF940 

B7 

ED52 

7D 

FE02 

2005 



00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 BASBE6 

00100 BASEND 

00110 BASIC 

00120 CURSOR 

00130 ; 

00140 

00150 INIT 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 



LOWER CASE CONVERTOR VER 2.0 

CREATED 17 JUNE 1982 

BY DENNIS WRIGHT 

1 SNEAD COURT DINGLEY 3172 
(C) ALL RIGHTS RESERVED 



EQU 
EQU 
EQU 
EQU 

ORG 

CALL 

LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

OR 

SBC 

LD 

CP 

JR 



40A4H 
40F9H 
06CCH 
4020H 

7E10H 

01C9H 

HL,MESG1 

DE,3C40H 

BC,80H 

HL„MESG2 
DE,3D00H 
BC ? 40H 

HL„3D80H 
< CURSOR >,HL 
DE, (BASBEG) 
HL, (BASEND) 
A 

HL,DE 
A,L 
2 
NZ , CONT 



; PRINT MAIN MESSAGE 



; PLACE CURSOR 
? BELOW MESSAGE 



5 CLEAR FLAGS 
;FIND PROGRAM LENGTH 
; ROUTINE CHECKS 
;IF PROGRAM LENGTH 
sIS ONLY TWO BYTES 
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7E3E 7C 00330 LD 

7E3F FEOO 00340 CP 

7E41 285D 00350 JR 

7E43 EB 00360 CONT EX 

7E44 23 00370 INC 

7E45 23 00380 INC 

7E46 23 00390 INC 

7E47 CD997E 00400 SEARCH CALL 

7E4A FE22 00410 CP 

7E4C 20F9 00420 JR 

7E4E CD997E 00430 FSTCAP CALL 
/C 

7E51 FE22 00440 CP 

7E53 28F2 00450 JR 

7E55 FE41 00460 CP 

7E57 38F5 00470 JR 

7E59 FE5B 00480 CP 

7E5B 30F1 00490 JR 

7E5D CD997E 00500 FNDLET CALL 

7E60 FE22 00510 CP 

7E62 28E3 00520 JR 

7E64 FE2E 00530 CP 

7E66 280D 00540 JR 

7E68 FE41 00550 CONVRT CP 

7E6A 38F1 00560 JR 

7E6C FE5B 00570 CP 

7E6E 30ED 00580 JR 

7E70 C620 00590 ADD 

7E72 77 00600 LD 

7E73 18E8 00610 JR 

7E75 CD997E 00620 NUSENT CALL 

7E78 FE22 00630 CP 

7E7A 28CB 00640 JR 

7E7C FE20 00650 CP 

7E7E 20E8 00660 JR 

7E80 CD997E 00670 CALL 

7E83 FE22 00680 CP 

7E85 28C0 00690 JR 

7E87 FE20 00700 CP 

7E89 20DD 00710 JR 

7E8B 18C1 00720 JR 

7E8D CI 00730 LINEND POP 

7E8E 23 00740 INC 

7E8F 23 00750 INC 

7E90 7E 00760 LD 

7E91 FEO o 00770 CP 

7E93 2819 00780 JR 

7E95 23 00790 INC 

7E96 23 00800 INC 

7E97 18AE 00810 JR 

7E99 23 00820 NXTBYT INC 

7E9A 7E 00830 LD 

7E9B FEOO 00840 CP 

7E9D 28EE 00850 JR 

7E9F C9 00860 RET 

7EA0 217C7F 00870 NOPROG LD 

7EA3 11003D 00880 LD 

7EA6 014000 00890 LD 

7EA9 EDBO 00900 LDIR 

7EAB C3CC06 00910 JP 

7EAE 21BC7F 00920 PROEND LD 

7EB1 11003D 00930 LD 

7EB4 014000 00940 LD 

7EB7 EDBO 00950 LDIR 

7EB9 C3CC06 00960 JP 

7EBC 20 00970 MESG1 DEFM 
AMS VERSION 2.0 

7EFC 20 00980 DEFM 

C) 17 JUNE 1982 

7F3C 20 00990 MESB2 DEFM 
ROGRAM 

7F7C 20 01000 MESG3 DEFM 
D 

7FBC 20 OIOIO MESG4 DEFM 



A,H 

O 

Z, NOPROG 

DE,HL 

HL 

HL 

HL 

NXTBYT 

22H 

NZ , SEARCH 

NXTBYT 

22H 

Z, SEARCH 

41H 

C, FSTCAP 

5BH 

NC, FSTCAP 

NXTBYT 

22H 

Z, SEARCH 

2EH 

Z, NUSENT 

41H 

C, FNDLET 

5BH 

NC, FNDLET 

A,20H 

<HL) ,A 

FNDLET 

NXTBYT 

22H 

Z, SEARCH 

20H 

NZ, CONVRT 

NXTBYT 

22H 

Z , SEARCH 

20H 

NZ, CONVRT 

FSTCAP 

BC 

HL 

HL 

A, (HL) 

O 

Z, PROEND 

HL 

HL 

SEARCH 

HL 

A, <HL) 

O 

Z, LINEND 

HL,MES63 
DE,3D00H 
BC,40H 

BASIC 
HL,MESG4 
DE,3D00H 
BC,40H 



sLONG WHICH 

5 INDICATES 

5 NO BASIC PROGRAM LOADED 

5 PUT PROGRAM START ADDRESS 

5 INTO HL AND 

;JUMP LINE 

; POINTERS 

5 GET NEXT BYTE 

: QUOTE? 

5 TRY AGAIN 

; ROUTINE LEAVES 1ST LETTER U 

5 2ND QUOTE? 

; SEARCH FOR NEXT QUOTATION 

sLESS THAN "A"? 

5 SEARCH FOR 1ST CAPITAL 

5 GREATER THAN "Z"? 

; SEARCH FOR 1ST CAPITAL 

;2ND QUOTE? 

; SEARCH FOR NEXT QUOTATION 

; PERIOD? 

; CHECK FOR NEW SENTENCE 

;LESS THAN "A"? 

;FIND LETTER 

; GREATER THAN "Z"? 

;FIND LETTER 

S CONVRT TO LOWERCASE 

; STORE BACK IN PROGRAM 



;2ND QUOTE? 

; SEARCH FOR NEXT QUOTATION 

; SPACE? 

;THEN CONVERT 

?2ND QUOTE? 

; SEARCH FOR NEXT QUOTATION 

;2ND SPACE? 

5 THEN CONVERT 

S SEARCH FOR FIRST CAPITAL 

; CLEAR STACK 

5 JUMP OVER 

;LINE POINTER 

5 CHECK FOR 

5 END OF PROGRAM 

sRET TO BASIC 

;JUMP OVER 

;LINE NUMBER 

5 LOOK IN NEXT LINE 

5 LOAD NEXT BYTE 

? END OF PROGRAM LINE? 

;G0 JUMP LINE POINTERS 

SPRINT 'NO PROGRAM' MESSAGE 



I RETURN TO BASIC 

; PRINT 'COMPLETED' MESSAGE 



BASIC ; RETURN TO BASIC 

LOWER CASE CONVERTER FOR BASIC PROGR 

CREATED BY DENNIS WRIGHT < 

PROGRAM CONVERTING RESIDENT BASIC P 

NO BASIC PROGRAM LOADE 

CONVERSION COMPLETE 



7E10 



01020 



END 



INIT 
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CD 


C9 


Ol 


21 


BC 
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11 


40 


3C 


01 


80 


00 


ED 


BO 
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7F 


11 


00 
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01 


40 
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ED 
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21 
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E3 


FE 


2E 


28 


OD 


FE 


41 


38 


Fl 


FE 


5B 


30 


ED 


7E70: 


C6 


20 


77 


18 
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***# VARIABLE WORKSHEET **** 
COLOUR COMPUTER 



10 '*** VARIABLE WORKSHEET*** 

20 * *****FOR THE TRS8CC***** 

30 'ORIGINALLY BY S&P MILLER 

40 'FOR THE TRS80 

50 CLEAR 1000 

60 CLS 

70 PRINT *§ 71 .."VARIABLE WORKSHEE 

T " 

80 PRINT TAB (15) "BY 

90 PR I NT "BY S & P MILLER FOR THE 

TRS8€iCC 
100 PRINT 
110 PRINT 

120 INPUT "MAX. NUMBER OF ARRAYS" 
;A 

130 INPUT "MAX. NUMBER OF SUBROUT 
INE LINES REQUIRED" ;B 
140 INPUT "MAX. NUMBER OF VARIABL 
E LINES REQUIRED" ?C 
150 INPUT "NUMBER OF COPIES REQUI 
RED " 5 Y 
160 FOR J=l TO Y 

1 70 PR I NT#-2 , CHR* ( 27 ) CHR* ( 1 4 ) " V 
ARIABLE WORKSHEET" 

180 PR I NT#-2, " PROGRAM : ",,"PROG 
RAMMER :" S ,,"DATE : / /19 : " 
190 PRINT#-2, " " 

200 PRINT#-2, "MEMORY CLEARED - 
MEMORY PROTECTION AT - 

210 PRINT#-2, " " 
220 PRINT#-2, " " 
230 PRINT#-2, " " 
240 PRINT#- 
D ARRAYS :-" 
250 FOR X=l TO A 
260 PRINT#-2 5 " DIM 
AME : " 



LIST OF DIMENSIONE 



SUBROUTINE INFORM A 



START tt: END # 



270 NEXT X 

280 PRINT#-2 

290 PRINT#-2 

TION :-" 

300 PRINT#-2 

310 PRINT#-2 
COMMENTS " 

320 PRINT#-2, " " 

330 FOR X=l TO B 

340 PRINT#-2," »;»:»;» — 

5 i 5 

350 PRINT#-2, STRING* (41,"-") 

360 NEXT X 

370 PRINT#-2, " " 

380 PR I NT#-2, "VARIABLE LIST :-" 

390 PRINT#-2, " " 

400 PRINT#-2, " NAME 
LABEL /USE 

410 PRINT#-2, " " 

420 FOR X=l TO C 

430 PRINTtt-2, " ", 

440 PR I NT#-2 , STR I NG$ ( 44 , " - " ) 

450 NEXT X 

460 PRINT#-2, " " 

470 PRINT#-2, "PERIPHERALS REQUIR 

ED :-" 

480 PRINT#-2, " " 

490 PRINT#-2," CASSETTE ( ) :PRI 

NTER ( ) s DISKS ( ) NUMBER REQUI 

RED — " 

500 PRINT#-2 S "N0TES:- " 

510 PRINT#-2„ " " 

520 PRINT#-2, " " 

530 PRINT#-2, " " 

540 NEXT J 

550 CLEAR 50 

VARIABLE LISTs - 
NO. OF ARRAY LINES 
NO. OF SUBROUTINE LINES 
NO. OF VARIABLE LINES 
NO. OF COPIES REQUIRED 
LOOP COUNTER FOR COPIES 
LOOP COUNTER FOR A 5 B S C 



560 


* 


570 


' As 


580 


' Bs 


590 


* Cs 


600 


* Ys 


610 


' Js 


620 


* X: 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. An (80) after a program title indicates that the program will be for TRS-80 Model 
1/3 or System 80/Video Genie computers. (Colour) indicates that the program will be for the 
TRS-80 Colour Computer and the Hitachi Peach. 



** JUMP THE RAPIDS LII/16K (80) ** 

This game makes use of the graphic utility 
(MOVIE) published in MICRO-80 issue 22. 
In this game you have to cross a river 
by jumping from log to log, but with the 
graphic utility Movie driving the graphics, 
it's not easy. 



** MORSE CODE TRANSMITTER LII/4K-16K ** 

This morse code program will transmit morse 
code out to the cassette port. The code 
can be random or can be supplied by you. 
As actual morse code is transmitted by 
this program it is conceivable that the 
computer output could be hooked up to a 
transmitter for live transmission. 

** CHEQUE BOOK DATA FILE (COLOUR) ** 

This program enables you to save all your 
cheque book transactions on a cassette 
data file and retrieve them at will. A 
better way to check queries than to search 
through the stubs! 



** FAULT FINDER LII/16K (80) ** 

This program is a problem in deductive 
logic. The scenario is of a machine (for- 
tunately fictitious), which is subject 
to three particularly undesirable faults 
when combinations of actions are taken. 
The computer will act as your agent in 
performing the actions that you order and 
reporting the results. You are required 
to determine what the common features of 
combinations of actions which produce the 
faults are and, hence, by trial and error, 
how to avoid the faults. (Huh! - Ed.) 

** CHEQUE ACCOUNT MANAGER LII/16K (80) ** 

This program will store up to 50 transactions 
of your cheque account. It maintains a 
balance of the account. Being fully inter- 
active, it will check bank statements, 
edit records, sort records and run record 
searches. 

** PAYROLL (COLOUR) ** 

A simple payroll program originally designed 
to operate on a Level II, 16K cassette 
system. This program will allow you to 
manage the payroll for a small staff on 
your Colour Computer. 



sion of DOSPLUS indicated. 
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If it's a dual-drive system you need, then take advantage of our dual-drive package and 
SAVE a further $40 on the price of two single-drive packages ... 



DRIVE TYPE 



no. of 
Tracks 



No. of 
Heads 



Capacity 



Dosplus 
Version 



Price 



2 x MPI B51 
2 x MPI B52 
2 x MPI B92 



40 ea 
40 ea 
80 ea 



1 ea 

2 ea 
2 ea 



2x 100K 
2x200K 
2x400K 



3.3 
3.4 
3.4 



$874 
$1125 
$1454 



Dual-drive package includes two bare disk drives, self-contained dual- 
drive cabinet/power supply as illustrated, two drive cables and the 
version of Dosplus indicated. 

All disk drive components are still available separately: 



NOTE: All 40 track drives are completely compatible with 35 track 
operating systems such as TRSDOS. DOSPLUS allows you to realise an 
additional 14% capacity compared with TRSDOS. Under DOSPLUS 3.4, 
80 track drives can read 35/40 track diskettes. 



BARE DRIVES — MPI drives offer the fastest track-to-track access time (5 milliseconds) available. All drives are capable 
of operating in double density for 80% greater storage capacity. 



MPI B51 40 track, single-head, 100K 
MPI B52 40 track, dual-head, 200K 
MPI B92 80 track, dual-head, 400K 

Simple, wrap-around cabinet 
Separate, dual-drive power supply 



Price 

$399 
$449 
$619 

$12 
$85 



New, 
Reduced Price 



Freight 

$5.00 
$5.00 
$5.00 

$2.00 
$8.00 



Self-contained, single drive cabinet/power supply 
Self-contained, dual-drive cabinet/power supply 
Two drive cable 
Fan drive cable 
DOSPLUS 3.3 
DOSPLUS 3.4 



Price 

$99 

$135 

$39 

$49 
$99.95 
$149.95 



Freight 

$3.U0 
$5.00 
$2.00 
$2.00 
$2.00 
$2.00 



Prices are FOB Adelaide. Add $5.00 freight for single drive package, $10.00 for dual-drive package. Prices are in Australian dollars. 
Freight is road freight anywhere in Australia. 

All items carry a 90-day parts and labour warranty. Repairs to be carried out in our Adelaide workshops. 
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LEVEL 2 ROM 

ASSEMBLY LANGUAGE TOOLKIT 

by Edwin Paay 

FOR TRS-80 MODEL 1, MODEL 3 
AND SYSTEM 80/VIDEO GENIE 

This is a new package consisting of two invaluable components: 

•A ROM REFERENCE Manual which catalogues, describes and cross-references the 
useful and usable ROM routines which you can incorporate into your own machine 
language or BASIC programs. 

•DBUG, a machine language disassembling debugging program to speed up the 
development of your own machine language programs. DBUG is distributed on a 
cassette and may used from disk or cassette. 

Part 1 of the ROM REFERENCE manual gives detailed explanations of the processes used for 
arithmetical calculations, logical operations, data movements etc. It also describes the various for- 
mats used for BASIC, System and Editor/Assembly tapes. There is a special section devoted to those 
additional routines in the TRS-80 Model 3 ROM. This is the first time this information has been made 
available, anywhere. Differences between the System 80/Video Genie are also described. Part 1 is 
organised into subject specific tables so that you can quickly locate all the routines to carry out a 
given function and then choose the one which meets your requirements. 

Part 2 gives detailed information about each of the routines in the order in which they appear in 
the ROM. It describes their functions, explains how to use them in your own machine language 
programs and notes the effect of each on the various Z80 registers. 

Part 2 also details the contents of system RAM and shows you how to intercept BASIC routines. 
With this knowledge, you can add your own commands to BASIC, for instance, or position BASIC 
programs in high memory — the only restriction is your own imagination! 

The Appendices contain sample programmes which show you how you can use the ROM routines 
to speed up your machine language programs and reduce the amount of code you need to write. 

DBUG: Eddy Paay was not satisfied with any of the commercially available debugging programs, 
so he developed his own. DBUG: allows you to single-step through your program; has a 
disassembler which disassembles the next instruction before executing it or allows you to bypass 
execution and pass on through the program, disassembling as you go; displays/edits memory in 
Hex or ASCII; allows Register editing; has the ability to read and write System tapes and all this on 
the bottom 3 lines of your screen, thus freeing the rest of the screen for program displays. Four ver- 
sions of DBUG are included in the package to cope with different memory sizes. 

The best news of all Is the price. The complete Level 2 ROM ASSEMBLY LANGUAGE 
TOOLKIT is only: 

- Aus. $29.95 + $2.00 p&p 

- UK £18.00 + £1.00 p&p 

SPECIAL OFFER TO OWNERS OF THE LEVEL II ROM REFERENCE MANUAL ... 

UPGRADE TO THIS ASSEMBLY LANGUAGE TOOKIT FOR ONLY $19,951 

Send back your original Level II ROM Reference Manual plus a cheque, money order or 

Bankcard authorisation for $19.95 plus $2.00 p&p and we will send you the new 

ASSEMBLY LANGUAGE TOOLKIT 
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